

















































TOENTIFICATION 


eecccccceccose 
PRODUCT CODES  MAINDECe11@DERPVeB-D 

PRODUCT NAMES FUNCTIONAL CONTROLLER TEST (PART 2) 
DATES MARCH, 1976 

MAINTAINERS OTAGNOSTIEC GROUP 


THE INFORMATION IN THIS DOCUMENT 38 SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY OIGITAL 
EQUIPMENT CORPORATION, OZGITAL EGUIPHENT CORPORATION aSguMES 
~ ha. + seaman FOR ANY ERRORS THAT MaY APPEAR IN THIS 

U a 


THE SOPTWARE DESCRIBED IN THIS DOCUMENT 38 FURNISHED UNDER A 
LICENSE AND MAY ONLY BE USED OF COPIED IN ACCORDANCE wiTw 
THE TERMS OF SUCH LICENSE, 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR THE USE OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT 
THAT 28 NOT SUPPLIED BY OGITAL, 


COPYRIGHT 1975,3976 BY DIGITAL EQUIPMENT CORPORATION 


CONTENTS SEQ 8662 
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2,3 PRELIMINARY PROGRAMS 
3. LOADING PROCEDURE 


3,1 METHOD 
4, STARTING PROCEDURE 


4,1 CONTROL SWITCH SETTINGS 

4,2 STARTING ADDRESS OR ADDRESSES 
4,3 PROGRAM AND/OR OPERATOR ACTION 
5, OPERATING PROCEDURE 

5.1 OPERATIONAL SWITCH SETTINGS 
5,2 SUB-ROUTINE aeSTRaCTS 

6, ERRORS 

7, RESTRICTIONS 

6, MISCELLANEOUS 

6,1 EXECUTION TIME 


9, PROGRAM DESCRIPTION 
1,8 aBsTracy 


THIS OIAGNOSTIC TESTS THE OCL OF THE RPOS DISK SUBSYSTEM, 

IT USES THE DISK SURFACE AND THE DRIVE MECHANICS TO PROVE 

THE PROPER WORKING OF THE SUBSYSTEM, IT OOES NOT NEED A 
FORMATTED DISK PACK, A OLSK PACK WITH NO VITAL INFORMATION 
WRITTEN ON 37 38 ESSENTIAL. AFTER A SUCCESSFUL RUN (WITH 

NO ERRORS) OF THIS DIAGNOSTIC IT CAN BE ASSERTED THAT THE 

DCL IN THE RPGS SUBSYSTEM WORKS SUCCESSFULLY WHILE STANDING 
ALONE, SYSTEMS INTERACTION AND DAIVE TIMING 18 LEFT TO 

OTHER DIAGNOSTICS, THIS 218 WITH THE ASSUMPTION THAT STATIC 1 
C(OERPS AND DERPT ) HAS BEEN RUN SUCCESSFULLY, 


2,8 REQUIREMENTS 
2,1 EQUIPMENT 


POPo11 COMPUTER WITH CONSOLE TELETYPE, AND A RPOS O1SK 
SYSTEM, THE RPOS DISK SYSTEM WILL CONSIST OF AN RHTO 
CONTROLLER, A OI8K CONTROL LOGIC (DCL), 4 DEC 733 O18K 





ORIVE, AND ITS APPROPIATE DISK PACK, THE DISK PACK NEED S€o e663 
NOT BE FORMATTED, USED SECTION OF THE OTSK SURFACE SHALL 

BE GOOO (HOLE FREE). THE SURFACE FOR THE FOLLOWING SECTORS 

MUST BE GOOD, THAT 18, FREE OF ANY HOLES OR SURFACE 

IRREGULARITY BEFORE ANY DATA ERROR Can BE aTTRIeUTED TO 

THE LOGIC, 


CYLINDER 68, TRACK O68, SECTOR Ce 
CYLINDER 66, TRACK 88, SECTOR 6; 
CYLINDER 68, TRACK 38, SECTOR 24 
CYLINDER 61, TRACK O86, SECTOR Ge 
CYLINDER 88, TRACK 68, SECTOR 6p 
CYLINDER 63, TRACK 68, SECTOR 66 
CYLINDER 66, TRACK 68, SECTOR GO 
CYLINDER O65, TRACK O88, SECTOR 8e 
CYLINDER OS, TRACK BY, SECTOR Oa 
CYLINOER 86, TRACK 86, SECTOR 68 
CYLINDER 67, TRACK 88, SECTOR 60 
CYLINDER 96, TRACK 86, SECTOR 68 
CYLINOER 69, TRACK 16, SECTOR 21 
CYLINDER 616,TRACK 18, SECTOR 24 


2,2 STORAGE 
THIS PROGRAM REGUIRES 16K WORDS OF MEMORY 
2,3 PRELIMINARY PROGRAMS 
THIS PROGRAM ASSUMES THAT MAINDECCIICDERPS< © (LATEST 
REV) HAS BEEN RUN WITHOUT ERRORS, 
AND ZT ASSUMES THAT MAINDECe11LCDERPTe © (LATEST 
REV) MAS BEEN AUN WITHOUT ERRORS, 
AND IV ASSUMES THAT MAINDECeI{@DERPUS © (LATEST 
REV) HAS BEEN RUN WITHOUT ERRORS, 
3,8 LOADING PROCEDURE 
USE STANDARD PROCEDURE FOR LOADING .A88 TAPES 
4,8 STARTING PROCEDURE 
4,1 CONTROL SWITCH SETTINGS 
SEE SECTION 5.1 
4,2 STARTING ADDRESS 


START AT ADDRESS 206e-eF0R NORMAL RUN 
START AY ADDRESS 21GeeoPOR UNIT SELECTION ‘ 


200 START 

ALL SWITCHES MUST BE DOWN FOR WORST CASE RUN, WITH THIS 
STARTING ADORESS ALL THE RPOSS ON THE SYSTEM WILL BE 

TESTED ONE AY A TIME BEFORE "END PASS*® 18 PRINTED OUT, 

TESTING WILL START WITH THE LOWEST UNIT NUMBER ORIVE 

THAT 28 POWERED UP (THAT I8 THE LOWEST UNIT NUMBER RMAS REGISTER 
THAT RESPONDS) THEN GO ON TO THE NEXT HIGHER UNIT NUMBER 

THAT 38 POWERED UP, 


210 START 


ec NN 


5,0 
Soi 


ALL SWITCHES MUST BE DOWN FOR WORST CASE RUN, WITH THIS 
STARTING ADDRESS THE CONSOLE TELETYPE wILL aSx POR THE UNIT 
NUMBER TO BE TESTED, THEN ONLY THAT UNIT WILL BE TESTED 
FOR EACH PASS OF THE PROGRAM, 


PROGRAM AND/OR OPERATOR ACTION 

1, LOAD THE PROGRAM INTO MEMORY, 

2, SET STARTING ADDRESS ON THE SwITCH REGISTER 
3, PRESS "LOAD ADDRESS*, 


&, SET SOPERATIONAL SWITCH SETTINGS” (SEE SECTION 5.1) 
WORST CASE 38 ALL SWITCHES DOWN, 


S, PRESS “START, 


6. FOR THE FIRST PASS EACH TEST WILL BE ExECUTED ONCE 
ON THE ORIVES PRESENT OR ORIVE SELECTED BEFORE “END 
PASS 16 PRINTED, THE PIRST PASS WILL REQUIRE OPERATOR 
INTERVENTION If THE PROGRAM 18 NOT RUN UNDER AN "aCTeoii* 
MONITOR, THE SECOND AND SUBSEQUENT PASSES WILL ExECUTE 
Each TEST FOUR TIMES ON EACH DRIVES PRESENT OR ORIVE 
SELECTED BEFORE “END PASS*® 38 PRINTED, THE SECOND 
AND SUBSEQUENT PASSED 00 NOT WEED ANY OPERATOR INTERVENTION, 


OPERATING PROCEDURE 
OPERATIONAL SWITCH SETTINGS 


SWITCH DEFINITIONS ARE GIVEN IN SECTION © "OPERATIONAL 
SWITCH SETTINGS® HOWEVER THE OETAIL DESCRIPTION ARE GIVEN 
WERE, 


SWITCH 15 © MALT ON ERROR 

WHEN THIS SWITCH 38 SET, 2° THE PROGRAM FINDS AN ERROR 
THEN THE APPROPZATE INFORMATION WELL BE PRINTED OUT 

AND THEN THE PROGRAM WILL HALT. AFTER THES WALT, PRESSING 
®CONTINUE® WELL CONTINUE WITH THE PROGRAM TILL THE NEXT 
ERROR 18 FOUND WHEN THE SAME THING WILL HAPPEN, 


SWITCH 16 © LOOP ON TEST 

WHEN THIS SWITCH 38 SET THE PROGRAM WILL BEGIN TO LOOP 
ON THE CURRENT TEST BEING EXECUTED, FOR ExaMPLE IF THIS 
SWITCH I8 SET WHEN THE PROGRAM 38 IN TEST 10 THEN THE 
PROGRAM WILL KEEP EXECUTING ALL OF TEST 16 REPEATEOLY, 
ONE WaY TO BE SURE THAT THE PROGRAM 38 IN THE EXPECTED 
TEST 18 TO SET THIS SWITCH DURING AN ERROR PRINTOUT OR 
DURING A PROGRAM WALT, 


SWITCH 13 © INNIOIT ERROR TYPEOUTS 

WHEN THIS SWITCH 16 SET FURTHER ERROR PRINTOUTS WILL 

CEASE, HOWEVER OPERATOR INSTRUCTIONS SUCH a8 “STOP ORIVE x" 
WILL CONTINUE, AT THE END OF PaSS "TOTAL NUMBER OF ERRORS 
ON THIS PASS ON DRIVE K° WILL BE TRUE, THAT 18, ALTHOUGH 
PRINTOUTS WERE INHIBITED IF THAT PASS FOUND 6 ERRORS, 

IT WILL SAY 80, 





om 





SWITCw 11 © INHIBIT ITERATIONS 

WHEN THIS SWITCH £6 SET THE PROGRAM ON SECOND 9488 WILL 
NOT REPEAT EACH TEST POUR TIMES BUT WILL OO EaCw TEST 
ONCE ONLY, 


SWITCH 18 © BELL ON ERROR 

WHEN THIS SWITCH 38 SET, IF THE PROGRAM FINDS An ERROR 

THE "BELL® OR SAL ARM” WILL BE SOUNDED. THIS SWITCH I8 USEFUL 
WHEN SWITCH 41 28 SET VET INPORMATION I8 NEEDED WHEN aNY ERROR 


18 DETECTED, TAKE THE EXAMPLE OF & PROGRAM LOOPING ON A TEST WITH 


SWITCH 34 SET TO WELP SCOPING, THEN IP THIS SWITCH Is 
SET AND THE BELL OR ALARM SOUNDS IY MEANS THAT THE ERROR 
1S PRESENT BUT IP THE BELL OR ALARM STOPS ITT MEANS THAT 
THE ERROR 38 NOT PRESENT, 


SWITCH 9 © LOOP OW ERROR 

WHEN THIS SWITCH 38 SET, If THE PROGRAM FINDS AN ERROR 

THEN GENERALLY THE PROGRAM WILL LOOP BACK TO THE LAST 
EXECUTED "SCOPE STATEMENT, I7 ON THE SECOND TIME 

THROUGH AN ERROR 18 POUND ZT WILL AGAIN LOOP BACK TO 

THAT "SCOPE STATEMENT, THIS LOOPING WILL CONTINUE 48 LONG 
AS THE ERROR 16 PRESENT AND THIS SWITCH 18 SET. HOWEVER 

IP THE ERROR 38 NOT PRESENT AT ANY TIME THEN IT WILL 
CONTINUE NORMALLY WITH THE PROGRAM, EACH TIME THE ERROR 

38 ENCOUNTERED PRINTOUT WILL TAKE PLACE UNLESS SWITCH 13 

18 ALSO GET, OURING BEGUG, USING A SCOPE, IT I8 RECOMMENDED 
THAT SWITCH 11 38 ALSO SET, 


NOTES SEE SECTION 6,3 


SwITCh 6 © LOOP ON TEST IN SwR «780d 
THIS 18 A SPECIAL SuITCH, WHEN SET SwITCHES @ THAY 7 

HAVE ONE MEANING AND WHEN RESET SWITCHES @ THRU 7 wavE 
ANOTHER MEANING, THIS MEANS THAT ANY SETTING OF SwITCH 

@ THRU 7 MUST BE DONE WITH SWITCH @ IN THE APPROPIATE 
POSITION, WHEN THIS SWITCH I6 SET THEN SWITCHES @ THRU 

7? GIVE THE TEST NUMBER YO BE LOC°ED ON, FOR EXAMPLE 

WITH SWITCH @ SET AND SWITCH S$ SET THE PROGRAM WILL LOOP 
ON TEST 16, WOWEVER THIS SETTING MUST BE DONE AT THE 
BEGINNING OF THE PROGRAM THEN ALL THe TESTS FROM 4 TO 10 
WILL BE EXECUTED AND THEN TEST 10 WILL BE REPEATED OVER 
AND OVER AGAIN, WHEN THIS SWITCH 38 NOT SET THEN SWITCHES 
@ THRU 7 WAVE THE MEAING 378 NAME INDICATES, 

FOR EXAMPLE SWITCH 7 £6 "STOP FURTHER COMPARESS® THwaT 18 

IF SWITCH 6 18 NOT SET AND SwxTCW 7 18 SET THEN WHEN a 
DATA ERROR £8 DETECTED NO PURTHER COMPARES WILL BE DONE, 
FOR EXAMPLE IN & 256 WORD BUPFER If ALL THE WORDS ARE IN 
ERROR THEN APTER SEEING THE PRINTOUT FOR THE FIRST Few 
WORDS SETTING SWITCH 7 ONLY WILL STOP PURTHER PRINTOUTS 

OF THIS ERROR AND GO ON WITH THE TEST RATHER THAN PRINT 
ALL THE 256 WORDS, WMOWEVER IF THIS WaS DONE WITH SWITCH 11 
THEN THE NEXT ERROR THAT THE PROGRAM DETECTS IN A 8UBe 
SEQUENT TEST WILL ALSO BE LOST. SUT WITH SWITCH 7, ONLY 
THIS GROUP OF DATA ERRORS ARE NOT PRINTED OUT, ANOTHER 
EXAMPLE OF SWITCH 6 BEING LOW 38 WITH SWITCH 6, WHICH 


nn rn nee ere ss 


IS “ECC TESTeCOMPARE END RESULT ONLY®, YHat 18 IF SwITcH SEG eeee 
8 18 NOT SET AND SWITCH @ 18 SET THEN OW ECC TESTS (TEST 

120 THRU TEST 434) INSTEAD OF COMPARING CONTENTS OF THE 

POSITION REGISTER AND PATTERN REGISTER AFTER EVERY CLOCK, 

COMPARES WILL ONLY BE DONE AT THE END OF ALL THE CLOCKS, 


NOTES SEE SECTION 6,3 


SWITCH 7 © STOP FURTHER COMPARES IF Swee I8 LOW, 

IF SWITCH 6 18 SET AND THIS SWITCH 18 ALSO SET THEN THIS 
SWITCH GIVES THE TEST NUMBER TO BE LOOPED ON AS INDICATED 
IN THE DESCRIPTION OF SWITCH 6. IF SuITCH @ I8 NOT SET 

AND THIS SWITCH 28 SET THEN THE PROGRAM WILL 00 AS THE 

NAME INDICATES, FOR EXAMPLE IN A 856 WORD BUFFER IF ALL 
THE WORDS ARE IN ERROR THEN APTER SEEING TwE ERROR PRINTOUTS 
FOR THE PIRGT FEW WORDS THEN SETTING SWITCH 7 WITH SwITeH 6 
NOT SET WILL STOP THE PRINTOUT OF ALL 256 WORDS BUT WILL 
NOT STOP THE PRINTOUT OF ANOTHER ERROR IN ANY SUBSEQUENT 
TEST, I7 38 EXPECTED THAT GwITCH 7 AFTER BEING SET FOR 

A WHILE 70 STOP PRINTING ALL THE 256 WORDS WILL BE RESET 
AGAIN TO ENABLE THE PRINTING OF OTHER OaTA ERRORS, 


SWITCH 6 © TYPE ALL REGISTERS MITH ERROR IF Swee 18 LOW 

If SWITCH @ 18 SET AND THES SWITCH 18 ALSO SET THEN 

THIS SWITCH GIVES THE TEST NUMBER TO BE LOOPED ON as 
INDICATED IN THE DESCRIPTION OF SuITCH 6 If SwITcr 6 Is 
NOT SET ANO THES SWITCH 36 SET THEN THE PROGRAM WILL 00 

AS THE NAME INDICATES, THAT 38 ON FINDING aN ERROR INSTEAD 
OF ONLY GIVING THE ERROR MESSAGE AND RELEVANT REGISTERS 

AS WILL BE DONE IP SWITCH 11 38 NOY SET BUT WILL 4.80 

GIVE ALL THE REGISTER CONTENTS CEXCEPT "Data BUPFER® RNDB), 


5.2 SUBROUTINE ABSTRACTS 
SEE SECTION @ "SUBROUTINES®, 
6.8 ERRORS 


ERROR PRINTOUTS CONTAIN THE ERROR ADDRESS AND OTHER 
PERTINENT ZNPORMATION CONCERNING THE PARTICULAR FarLURE, 
THIS INFORMATION MAY BE THE CONTENTS OF RELEVANT RPGS 
REGISTERS OR GOOD/RECEIVED OaTA, IF THE ERROR OCCURRED IN a 
SUBROUTINE, THE ADDRESS OF THE SUBROUTINE CALL 18 4L80 
GIVEN, REFER TO THE PROGRAM LISTING AT THE STATED 

ADORESS TO DETERMINE THE CAUSE OF TwE ERROR, 


7.8 RESTRICTIONS 
BEFORE STARTING THE PROGRAM THE OPERATOR MUST WAVE THE 
ORIVE PORT SWITCH LOCKED EITHER ON PORT A OR PORT 6 BUT 
MUST NEVER LEAVE IY IN THE PROGRAMMABLE STATE, 


8, MISCELLANEOUS 


8,1 EXECUTION TrME 








THE FIRST PASS OF THE PROGRAM WILL TAKE APPROXIMATELY 20 
SECONDS, SUBSEQUENT PASSES WILL Take 
6@ SECONDS , 


STACK POINTER 
THE STACK I8 INITIALLY SEY TO ieee 
OPERATOR SELECTABLE SCOPE LOOPS 


WERE 18 A DETAILED EXPLAINATION OF HOW THE LOOP ON ERROR WORKS, 
POR INSTRUCTIONS REGARDING THE USAGE OF THIS TECHNIQUE, HIT “C 
ANY TIME WHILE THE PROGRAM 38 RUNNING, ON HITTING AN ERROR 

IF THE LOOP ON ERROR SWITCH 18 SET, THE PROGRAM GOES BACK © 
USUALLY BACK TO THE BEGINNING OF THE TEST, 


WHEN THIS OPERATOR SELECTABLE SCOPE LOOP I8 USED THEN THE POINT 
THE PROGRAM GOES BACK TO CaN BE CHANGED, 

THE RESTRICTIONS TO THE POINT HHERE THE PROGRAM CaN GO ARES @ 

1. If MUST BE WITHIN THE TEST UNDER CONSIDERATION 

2, LOOP ON ERROR SuITCH mUST BE SET 

3, THE ERROR MUST OCCUR WITHIN THE TEST UNDER CONSIDERATION 

I® THE ERROR CORES NOT OCCUR WITHIN THE TEST UNDER CONSIDERATION 
THE PROGRAM WELL REVERT TO NORMAL OPERATION, HOWEVER, f° LOOP ON 
TEST SWITCH 28 SET AND THIS OPERATOR SELECTABLE SCOPE LOOP 18 USED 
THEN THE PROGRAM WILL LOOP BACK TO THE SELECTED POINT WHEN IT 
COMES TO THE END OF THE TEST UNDER CONSIDERATION, 


APTER LOOPING FOR SOME TIME IF THE LOOP SWITCH 38 PUT DOWN THEN 
NORMAL OPERATION WILL CONTINUE. 


PROGRAM DESCRIPTION 
LOGIC OFVISION IN HARDWARE MODULES 


REGISTER BOARD (RG) @ ERROR REGISTER 1 STATUS REGISTERS 
MUX POR REGISTERS GO HANDLING REGISTER 
DECODE COMMAND DECODE EXECUTION OF 
MECH, COMMANDS 


SYNC. DATA BOARD (8N) © DATA CONTROL PARALLEL TO SERIAL 
SYNC, BYTE DETECT. 


SEEK AND SEARCH (88) © SEEK LOGIC SEARCH LOGIC WEADER 
MANOLING, 


ERROR CORRECTION (EC) = ECC LOGIC ERROR REGISTER 2 6 3 
MUX FOR ERROR REG, 2 & 3 LOOK AWEAD 
REG, SECTOR COUNTER DATA PORMATION 
RING COUNTER, 


DUAL PORT (OP) @ DUAL PORT ARBITRATION ATTENTION LOGIC 
SERTAL NO REGISTER MASS BUS REGISTER 
STORAGE 

OISK SURFACE USAGE 


SYMBOLS USED 
C s CYLINOER 


Seo eee7 


7 s TRACK Seq eees 
8 « SECTOR 

We WRITE 

R es READ 

TT « TEST NUMBER 

CO, T@, 88 


TTZ220w,R, TT2SER, TT240u,R, TT2Sen,R, TI260eu,R, TT3Sew,R, TVSTew, TTSBew, TTSiew,R, TTS2eW,R, VISSew,R 


ce, Te, 81 
TT27ow,R, TTS7ow,R, TT4GeR, TT6iow,R, TV62en,2, TV63ow,R 


Co, 718, 824 
TT3G0ew, TT3i0W,R 


Ci, 70, 88 
TT3O0eW,R, TTSiew,R, TTSSeW,R, TTSeew,R 


Ci, 718, S21 
TT3i0w 


C2, 70, 88 
TTSicw,R 


C2, T18, 821 
TTSiow 


C3, Te, 88 
TTSiL9ew,R 


C3, T18, 824 
TT3iow 


Ca, 78, 88 
TT3icew,R# 


Ca, T16, S21 
TT3iew 


cs, Te, 38 
TT3SicwW,R 


cs, 77, 86 
TTS3ew,R, TT3I4eW,R 


cS, 718, 824 
TT3iew 


Co, TO, 80 
TT3iew,R 


Co, T18, 821 
TTSiew 


C7, Te, 88 
TT3iew,R 


cy, T18, 818 
TT3i10W 


cs, Te, 88 
TTSiew,R 


ce, 718, S21 
TTSiow 


cs, Te, 80 
TTSiew 


co, 718, 821 
TTSiow, TTI2eR 


Ci8, 76, 88 
TTSiew,R 


Caie, T18, 821 
TT360u,R, TTSG0w,8 


THE FOLLOWING SECTION DESCRIBES EaCw TEST and SUBROUTINES 
IN DETAIL AND CAW BE USED AS AN INDEX TO THE LISTING. 

THE LEFT MOST COLUMN 38 THE LINE NUMBER WITHIN THE LISTING 
WHERE THAT ITEM WILL BE FOUND, 
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OOCUMENT 
senccetncscoen 
MASNOECOS LeDERPVASA 
Seeseetanetane 


COPYRIGHT 1976 
OIGITAL EQUIPMENT CORPORATION 
MAYNARD, MASS, 61756 


16eO0CTo74 19816 


MAINDEC $11 -DERPVASA DECNOC VER 


TABLF OF CONTENTS 
FORO OFCEOREOSEEOO® 
OPERATIONAL SWITCH SETTINGS 
BASIC DEFINITIONS 
TRAP CATCHER 
STARTING ADDRESS(ES) 
MEMORY MANAGEMENT DEFINITIONS 
COMMON TAGS 
ERROR POINTER TABLE 
REGISTER ADDRESSES 
REGISTER TEST 
END OF PASS ROUTINE 
SUBROUTINES 
SCOPE HANDLER ROUTINE 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
TYPE ROUTINE 
TTY INPUT ROUTINE 
READ AN OCTAL NUMBER FROM THE TTY 
ERROR HANDLER ROUTINE 
ERROR MESSAGE TYPEOUT ROUTINE 
BINARY TO OCTAL (ASCIT) AND TYPE 
TRAP DECODER 
TRAP TABLE 
POWER DOWN AND UP ROUTINES 


19sO0CT$74 19918 





MAINDEC e111 eNERPVASA 
2 


DECNOC VER 00,04 


COPYRIGHT (C) 1974 
DIGITAL EQUIP“ENT CORP, 
MAYNARD, MASS, 91754 


PROGRAM BY SUB “ALLICK 


THIS PROGRAM WAS ASSEYBLED USING THE PDP-11 MAINDEC sYSMAC 
PACKAGE (MAINDEC#11-DZ0AC-A3), 


PPCOSSOSSTESOSSESOHOTESSOLSOOESTERETOSOSESOSSEHESESSOTESOTESCOOEED 
22 OPERATIONAL SWITCH SETTINGS 
SESSPOOCOCOIOSHOSESOSHO SESE SECTS RSSHE SHOOTS OCESETU SCOTS HOROCSCOSE 


SWITCH USE 
15 HALT OW ERROR 
14 LOOP ON TEST 
13 INHIBIT ERPOR TYPEOUTS 
ii INHIBIT ITERATIONS 
10 BELL ON ERROR 
9 LOOP ON ERROR 
8 LOOP ON TEST IN SWR<738> 
7 STOP FURTHEP COMPARES IF Swoe ITS LOW 
6 TYPE ALL REG, WITH ERROR IF Swe LOW 


36 BASIC DEFINITIONS 
SESS OSCCSOEEOHOSEOCOSESSESSOSOFHSEHEHESSSOCSOSECOCOSOSSOSTOCSHSHELS 


38 
49 
61 
71 
99 
127 


INITIAL ADDRESS OF THE STACK POINTER #08 1000 eve 
GENERAL PURPOSE REGISTER DEFINITIONS 

PRIORITY LEVEL DEFINITIONS 

"SWITCH REGISTER" SWITCH DEFINITIONS 

DATA BIT DEFINITIONS (BIT#@ TO BITIS) 

BASIC "CPU" TRAP VECTOR ADDRESSES 


18°O0CT=74 19318 
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MAINDECe1 1 eDERPVASA 


149 


204 


TRAP CATCHER 
SOEOCHSESOS SOS OSSOSSSOE SO OTESSSEHEHES OS EOS STEEL SUSTHOT CEOS OSOODOS 


145 ALL UNUSED LOCATIONS FROM 4 © 776 CONTAIN A ",¢2,HALT® 
SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
LOCATION @ CONTAINS @ TO CATCH IMPROPERLY LOADED VECTORS 


OCSPESSOOHSHOSOSESSSEOOSESCHSOSSESOHSHSESSCOSTOSHSEHOFOSHSOHCTSODS 
STARTING ADDRESS(ES) 
SHOSPOHESESESSS OSES OSES ESEORESOOSOHOOSETSESSOSESEOSOEHSO TOUS EOSOES 


157 STARTING ADDRESS 200 FOP NORMAL STARTS 


THIS WILL TEST ALL PPO4°S ON THE SYSTEM A SINGLE DRIVE AT A TIME 


STAPTING ADDPESS 210 WILL TEST ONLY ONE SPECIFIED DRIVE 


STAPTING ADDRESS 220 WILL JUMP OVER THE TESTS REQUIRING AN OPERATOR 


163 AT THE DRIVE 


POSSE SOSOPOCSESSOHSHSOSSSHSSSSHSSOSHV SH TSSOSHSHSOSSSSSOOO TOOTS 
MEMORY MANAGEMENT DEFINITIONS 
PPOCSESSOSCOSOSESSSOOESS OLS OHOTHSFSHOSOFSOCHCOTSOHHESOECTEHEETEOOES 


167 KTi1 VECTOR ADDRESS 

171 KT11 STATUS REGISTER ADDRESSES 

178 KERNAL “I* PAGE DESCRIPTOR REGISTERS 

189 KERNAL "I" PAGE ANDRESS RFGISTERS 

200 SECCSEECESESESESESSOETESOTHHOTESTOSESESSCEHSSOSSSOOOHE OES OU ES 


202 SSHHSSSSSSESSSHSSHSHOSHSSHHSSESESHSUSSSSSHSSHSSSSHSHSHHSHHHSHHSOOHES 
PPTTTTTTTTTTTTITITTTITTTTTTTTTTiiTiir 
COMMON TAGS 
SHSSSSOSSSSSSSESSOSSHSHSSSHHHTEHHSHHSSFHEHESSSECHSSHHHHSHSCSOSCEEHECE 


206 THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
USED IN THE PROGRAM, 


258 HO SVSSGTIGOSHSSLOCEHE EH STCEESHPOSSSSOEDFOTEGEEETTVOFSIPSSVEOGEGH 


DECDOC VER 90,44 


16eNCT<-74 19318 
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MATYIDEC S11 eDERPVASA 


DECHOC VER AA,44 1RSNCT$74q 19318 


SHSSSHHSSSHSSHSSSHESSSSHSSSHSSCSSSHHSSSHFSHHTSSSHSSTSHSHSHHSCSHESSSEEOESE 


260 FRFOR POINTFR TABLF 
SROSCOSSSSEOS OSES TECESSEESOSEHOHESHSPOSOSHSHSSSSHSESOHOSERHTSESOSS 


262 


268 


277 
964 
970 


1004 


1179 


THIS TABLE CONTAINS THE INFORMATION FOR FACH FRROR THAT CAN OCCUR, 

THE INFORMATION TS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

LOCATION SITEMB, THIS NUMBER INDICATES WHICH ITF IN THF TARLE IS PERTINENT, 
NOTE1: IF SITEMBR IS @ THE ONLY PERTINENT DATA ITS (SEPRPC), 

NOTE2: EACH TTEM IN THE TABLE CONTAINS 4 POINTERS FXPLAINED AS FOLLOWS: 


EM s3POINTS TO THE ERROR MESSAGE 
DW s3;POINTS TO THE DATA HEADER 
DT :3POINTS TO THE DATA 

OF ssPOINTS TO THE NATA FORMAT 


SSSSHSESESSSSSSSHSHSHOSESHEHKEHSHSSSSSSHSSHSHSHSEGSHSSSSSSHSSHHHGHGHe 
SHSSSSSSSSSSSSSSSHSHSESHSHHSHHSSSHHSSHSSSESHSSHFHSSSSHHHSHECSSESCHSOHSCES 
SSSSSSSSSSSSHSSHSSHSSSSSHSHSSSHSHSHSSSSSSSSSSSHSSSHSSHSHSESHSSSGHSES 


1184 REGISTER ADDRESSES 
SHCSSSSHSOHEOS ESE HESOS SESE SSOHOSHSESHSTHESOSSOSOTOHSEVOSSHOECOROGS 


1346 REGISTER TEST 7 
SHSSSSHSSHSSSSHSHSSHSSESHSSSSHSHSHSSSEHSSHSSSHSHSHSHSSSSESHSHSSSSSSSSSCHSEHEES 


1466 


1594 


1524 


SSSSSSSSOCEESESSSESSSESSEESESOCSSPSSESESSESEHSCESECLSOSUOOR SEES 
TEST 1 REFERENCE EACH PEGISTER 

REFERENCE EACH REGISTER BY A MOVE INSTRUCTION 
SSHSSHOSSSOSSESSSSEPESSSSHSESHSSSESOSHSESOHEHSHSSOECESUSEETEES 


OFSCEGAEHESSCSOE SOG EH DFT OPH TELS CHS RTEHOPIG SHS SISSCHMSOTE TEU OD 
TEST 2 PARTIAL TEST FOR PHAS FOR UNIT NUMBERS PRESENT 

CHECK THAT RHAS CAN BE CLEARED BY MOVING ALL ONES 
SSSOSESOSFSSSSSOCHESHEHEPSSEHEFOEESSPSSSSSEEHSHSOHOTHTH SECT EOS 


SSSSSSHSESESSOFSSSSSHESSOSSECESSSOSSESOESEHESEHOSETESOHCOCEESS 
TEST 3 TEST FOR DRIVES PRESENT USING RHAS AND PHCS2 

THE NUMBER OF RPO4 DRIVES PPESENT ARE FOUND 

BY MOVING ALL OWES INTO PHER] WITH UNIT NUMBER 

IN RHCS2 INCREMENTED FROM ZERO TO SEVEN 

THEN THE SET BITS IN RHAS WILL GIVE DRIVES PRESENT 

THE ORIVE TYPE IS CHECKED TO HAVE 2028 OR 24020 AND THEN 

UNITS PRESENT ARE STORED IN A TABLE CALLED °UNITS® 


PAGE 45 


SEQ 9014 


MAINDFCo11-DERPVASA 
1533 
1644 


1653 
1696 


1699 


1738 


1741 


1777 
1778 


1785 
1902 


DECDOC VER 00,44 


SPSSSESSSESHSSSSSSHSSSHSFSSHHHSHSF ST EST SSHSSSSHHSSHHSSSHSESESEEES 


CEOVEGTESCEDE COGREES OHSS SGSOTETEORRERTE SCRE STESSUETETEYSROBE HES 
TEST 4 TYPE SERIAL NUMBER AND DRIVE TYPE 


SET APPROPIATE ATTTENTION BIT OF UNIT UNDER TEST IN °ATTENT? 


TYPE UNIT UNDER TEST 

READ SERIAL NUMBER AND DRIVE TYPE REGISTERS 

TYPE IT OUT AND PROCEFD 

TO LOOP HERE SET SWITCH 8, AND THIS TEST NUMBFR ON 
SWITCHES @ THRU 7 AND RESTART 


SOS CCSECHSSEEELESESOEEESESOSESHSSESSOO SHO SCSH SOSH CEODOCOOESS 
TEST S$ PROGRAM INTERRUPT 


PROGRAM INTERRUPT IS TESTED BY SETTING RDY AND IE 
IN RHCS1 AT THE SAME TIME 
THIS SHOULD INTERRUPT THROUGH LOCATION 254 
THE PROCESSOR PRIORITY IS SET TO 4 
PSSST SSEHOCESSSSESEOTESOTHSESESEESSSCSESSECSSOCOEHSHSUECEERSS 


SPSOSSSSSSSSSHESHSCSSSSSESEOSHOHSSEHSHFOSOUSESESHSOTCEO SOOT OTES 
TEST 6 INTERRUPT AT PROCESSOR AND DISK PRIORITY SAME 


PROCESSOR PRIORITY IS SET AT 5S (SAME AS THE DISK) 
IE AND RDY IS SET, THIS SHOULD NOT INTERRUPT 
SROSSESSSSSHSESSHESTOSESHCSHHSOEEHSSOHOSSOHTEHSSECHEHSOESEOODE 


TEST 7 SET VV BIT #6 IN RHDS1 
THIS TEST SETS VV IN RHDS1 INCASE 
ACT-11 MONITOR IS PRESENT AND THE PREVIOUS TEST 
IS NOT PERFORMED 
THERE IS A RESET AT THE BEGINING OF THIS TEST 
FOR ERROR RECOVERY ONLY, 


SSHSSSSSSSSSHSSHSSSSHSHSSSHSSSSHSHSESSSSSSEHSSHHSESSSSESSHESSSSLEGS 


SOSOHESHOSE THOS ESOSEESESESEHFEHSSOSSOFOSSPOUHOHETHOSHCSH FOTOS 
TEST 10 LAST BLOCK TRANSFERED-RHDS1 BIT#10 


WRITE ONE WORD OF 65125 ON CYLINDER 410, TRACK 18 
SECTOR 21, BY A WRITE HEADER AND DATA COMMAND 
THEN CHECK ALL REGISTEPS (LAST BLOCK TRANSFERED 
SHOULD BE SET) 

THEN READ ABOVE BY READ DATA 256 WORDS 

AGAIN LBT SHOULD BE SET 

CHECK ALL REGISTERS AND DATA 


16°OCT=74 19:18 
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1913 SECSPESHSSSEOSESHESOETSSEOESHO OSS OSSSO OSES OS SOOTHES SS COROOELES 


2172 SSSSSSSSCSHSHSSSHSSESSHSSSSSHSSHSHSSSSHESEHSESSSSSHSSEHEEOSEHSEEEESS 
TEST 11 SEARCH COMMAND 


2175 THE SEARCH COMMAND WILL BE DONE ON CYLINDER @ 
THAT IS STARTING WITH A RECALIBRATE : 
THEN HEADER AND DATA WILL BE WRITTEN FOR SECTOR @ AND 1 
ALL REGISTERS WILL PE CHECKED 
A SEARCH COMMAND WILL BF GIVEN FOR SECTOR @ 
ON INTEPRUPT SECTOR 1 HEADEP AND DATA WILL BE READ 
TIME WILL BE CRITICAL AS THE TIME TAKEN TO DO THE 
READ IS THE ONLY INDICATOR THAT THE HEADS WERE ON 
SECTOR @ AT INTERRUPT TIME, TIME ALLOWED IS MAXI™UM 
OF 1500 MICRO SECONDS 
THEN ALL REGISTERS ARE CHECKED AND PATA READ 


IS CHECKED 
2188 Iii riviririrrrriirirrrrirityYiitr 
2535 errr rrivirirrririirriitiittirittrYryY Tir) 


TEST 12 SEARCH COMMAND 


2538 THE ONLY THING NEW IN THIS TEST IS AN IMPLIED SEEK 
IN A SEARCH COMMAND 
THE HEADS START FROM CYLINDER 10 BY A SEEK 
COMMAND THEN A SEARCH SFCTOR @ TRACK @ CYLINDER @ 
Is GIVEN 
THEN A READ COMMAND IS GIVEN FOR 
CYLINDER 0, TRACK @, SECTOR 1 
TIME FOR THE READ IS THE ONLY INDICATOR 
OF CORRECT SEARCH 


2548 SHSSOSSEHSSESSSSSSHSSEHHSSHHESSSHSSCHHSSHHSSSSSSHHSESSHSSSRHHOEES 


2772 THE WEXT TEST REMOVES SFCTOR 1 ON CYLINDER @ 
TRACK® AND PUTS SECTOR @ THERE, 
HENCE THE PACK IS UNFORMATTED FROM 
THIS POINT ON TO THE TEST WHEN SECTOR 
1 IS REPLACED, IF TESTING IS STOPPED WITH 
AN ERROR IN THE SECTION OF THE PROGRA¥ BETWEEN 
THIS AND WHEN SECTOR 1 IS REPLACED THEN THE 
DISK BEING USED MAY HAVE BEEN UNFORMATTED 
IF THE LAST PASS OF THIS PROGRAM GIVES 
NO ERRORS IN THIS SECTION THEN THE DISK 
MAY NOT HAVE BEEN UNFORMATTED, HOWEVER IT 
IS RECOMMENDED THAT AFTER A PASS OF THIS 
PROGRAM THE DISK BE REFORMATTED, 
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2793 


3043 
3450 


3453 


3459 
3606 


3614 
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PITTITIiirTriiiiiiriiiiitiiiiiiiriiiriiiri iii iii 
TEST 13 HEADER COMPARE FRROR © PHERI BIT 87 


WRITE HEADER AND DATA IS USFD TO PEMOVE SECTOR 1 
AND PUT SECTOR @ THFRE ON CYLINDER 0 


THEN A PEAD 
HCE- BIT #7 


DATA IS GIVEN FOR SFCTORI 
IN RHER{ SHOULD SET, 


ALL REGISTEPS ARE CHECKED 
ANY DATA READ IS CHECKED 


SSSSHSSSSESSSSSSHSSSSSSHSSSHSSHHSSESHSSHSSHSEHSHOKEHSSSSSSESHSETSEHEES 


PESFSOOFGHFESESEGOGEOS TOS SEGHOUSE DGPS FSI ODO SSVOTSHASEDOEH OCOD 
TEST 14 HEADER COMPARE FRROR © RHER1 BIT 67 


WRITE HEADER AND DATA IS USED TO REMOVE SECTOR 1 

AND PUT SECTOR @ ON CYLINDER @ 

THEN A WRITE DATA IS GIVEN FOR SECTOR 1, TRACK @, CYLINDER 9% 
FOR 70, WORDS 


HCE © BIT 7 


IN RHER1 SHOULD SET 


ALL REGISTERS ARE CHECKED 

THEN A READ HEADER AND DATA SECTOR 1, TRACK 0, CYLINDER @ 
TS GIVEN, HCE © BIT 7 SHOULD SET AND ALL 

HEADER AND DATA SHOULD BE READ 


SPSOPSHSHESHHSHHSCHSHESHHSSHHOSHSSESSSOSOHEETHESOHOSETOSHEGODOS 
TEST 15 HEADER COMPARE ERROR © RHERI BIT #7 


WITH THE HEADS ON CYLINDER @ A SEARCH COMMAND IS GIVEN 
FOR CYLINDEP @ TRACK @ SECTOR 1, ALTHOUGH THE HEADER 
FOR THIS SECTOR IS CHANGED TO SECTOR © HCE-BIT 87 

IN RHERI SHOULD NOT SET 

BECAUSE SEARCH DOES NOT READ HEADER BUT ONLY USES SECTOR COUNTER 


SPSCSSPEESHSSSSOSOESSOOHSSOSSHEHSSESOSUSSETOSEEOSSCURSTERECOOES 
TEST 16 RESTORE SECTOR 1 CYLINDEP 1 TRACK 1 


THIS REPLACES REMOVER SECTOP 


WRITE HEADER AND DATA CYLINDER 0, FORMAT 16 BITS PER WORD 


TRACK @, SECTOR 1, KEYSs@, NUMBER OF WORDS 256 WORDS 


OF @ 


THEN READ HEADEP AND DATA FOR ABOVE, 
WRITE FROM BUFFER AND RFAD INTO BUFFER ARE FILLED WITH 


AND 256 OF @ 


THE WRITE COMMAND IS THEN LOADED INTO THE REGISTERS EXCEPT 


THE GO BIT, 


AND ALL THE REGISTERS ARE SAVED 
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3943 
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4090 


4093 


4098 


4226 


4229 


4237 
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THEN GO IS GIVEN FOR WRITE HEADER AND DATA 


18-OCT-74 19318 


THEN ALL PRFGISTERPS ARE COMPARED TO CHECK FOR IMPROPFR CHANGED 
THEN WRITE FROM BUFFER IS CHECKED TO SFF THAT NOTHING CHANGED 


NOW FOR THE READ COMMAND READ INTO BUFFER IS FILLED 
WITH ALL ONES, COMMAND IS LOADED INTO PEGISTERS EXCEPT 
GO BIT AND ALL PEGISTFRS APE SAVED 

GO IS GIVEN FOR THE READ COMMAND 


ALL REGISTERS ARE CHECKED FOR IMPROPER CHANGE 
THEN THE READ DATA IS COMPAPED, 


SPPCCSSSSHSSSHESESSCHESEHSSEHSOHS SES SEDESESSSOSSS OOOO ESEH SESE ODS 
TEST 17 INVALID ADDRESS EPROP RVERI<-BIT 810 


A WRITE HEADEP AWD DATA WILL BE ATTEMPTED TO CYLINDER 411 


TRACK 0, SECTOR @ 
INVALID ADDRESS ERROR (IAE) BIT 019 IN RHERI SHOULD 
stT 


SOHPCOSSSSSS SSH SSSSEHSSHSESHOSSHSSCSHSOFEHOCOOSTORSSSCTSESE OOOO 
TEST 20 INVALID ADDRESS ERROR RHER1I © BIT 810 


A WRITE DATA IS ATTEMPTED TO CYLINDER @, TRACK 19, 
SECTOR @ 

INVALID ADDRESS ERROR IAE BIT 810 IN RHEPI 

SHOULD SET 


SSSHOSOCSSHSESSSESSOHSHSSSSSESOSTOSEHHSCOHSCHOHOHSOHTOSHHETODS 
TEST 21 INVALID ADDRESS ERROR PHER{ “BIT #10 


A PEAD HEADER AND DATA IS ATTEMPTED TO CYLINDER 0 
TRACK @, SECTOR 22 

INVALID ADDRESS ERROR IAE BIT 614 IN RHERI 

SHOULD SET 

THIS WILL START WITH THE HEADS ON CYLINDER 10 

TO PROVE THAT IAE SETS FVEN BEFORE THE IMPLIED 
SEEK 
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4399 SRSSOSHSSHSOSSSESSESESSCESOSSSOEESSSOSHSSESSHSSHSSESOSSOCOOSEESES 
TEST 22 INVALID ADDRESS EPROP RHEP{ - BIT 610 


4402 A READ DATA IS ATTEMPTED TO CYLINDER @, TRACK @ 
SECTOR 2@ © FORMAT 18 RITS PER WORD 
INVALID ADDRESS EPROP IAF BIT 614 IN RHERI 


SHOULD SET 
4407 SOCSSTSSSSSSSSEHSHSSSHSSSHSSSSSHSSSSESCSSOSHSSHOSSSSHSSHOHSSEROESES 
4532 BESELTFFFSFSVSHSESTSEESSCSHPHSSEGTSSSHISGHFET HSHSSSHOFSSBHSSHSVOHB BS 


TEST 23 ADDRESS OVERFLOW FRROP PHEPie BITS9 AOE 


4535 A WRITE HEADER AND DATA COMMAND IS GIVEN FOR CYLINDER @, TRACK @ 
SECTOR @, 256 WOPDS OF @ 
NO CHECK IS DONE AFTER THIS WRITE 


A WRITE HEADER AND DATA COMMAND IS GIVEN FOR 
CYLINDER 410, TRACK 18, SECTOR 21, 261 WORDS 


ADDRESS OVERFLOW ERPOP RHER! BIT#9 SHOULD SET 
AFTER SECTOR 21 IS WRITTEN 
ALL REGISTERS APE CHECKED 


A PEAD HEADER AND DATA CYLINDER 410, TRACK 16, SECTOR 21, 
260466442330 WORDS ARE GIVEN 


SECTOR 21 SHOULD BE READ CORRECTLY BUT NO MORE ° 
READS SHOULD HAPPEN, AOF BIT SHOULD SET 


CYLINDER 6, TRACK @, SECTOR @ IS READ THERE 
SHOULD PE WO CHANGE IN DATA IN THIS SECTOR BY 
THE LAST WRITE HEADER AND DATA 


4556 POSSOSSTTESESHSESESHSOSESESEE ESS ESEPOTOSEOSECOSCHSOEOESED OOS OOS 
{ 5122 SOSSESESPESESESESSSS HSH ESHSOHOSOTOSSSECOSELETESSOSOSFESEC ETOCS 
TEST 24 FORMAT ERROR RHER BIT #4 
$125 AN ATTEMPT WILL BE MADE TO WRITE DATA ON CYLINDER @ 
$126 SECTOR @ TRACK @ WITH 18 BITS PER WORD WHEN THE 


HEADER HAS 16 BITS PER WORD SET 
THIS SHOULD GIVE FORMAT ERROR FER BIT #4 IN RHER1I 


THEN THIS SECTOR WILL BE READ IN THE CORRECT FORMAT 
16 BITS PER WORD TO CHECK THAT NOTHING GOT WRITTEN 
SOSSOCSEEESSEOSOSHSSSOPHSSOSOSSOSETESOTHS ESSE SCHEHOESECRO SHOES 
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5470 


5473 


$479 
5636 


5654 
$931 


5934 


5940 
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SCPSFOSESHSESPSSESHTESESSSSSHTSOTHHSTSEHSSTSHSSSSEHSHSSSSSSCOEES 
TEST 25 FORMAT ERROR RHERI BIT 084 


AN ATTEMPT IS MADE TO RFAD DATA WITH WRONG 
FORMAT BIT 


FORMAT ERROR PIT #4 IN PHEP! SHOULD SET 
NO DATA SHOULD BE READ 


SPPOOSOSE ESE OTESSSESSSHESESSESEOST OSS OOSOSSOSHSSSSUSSOR OSES TES 
TEST 26 REGISTER MODIFICATION REFUSED BIT #2 RHERI 


CYLINDER! TRACK @, SECTOR @ WILL BE WRITTEN WITH 
20@ WORDS OF 2000 BY A WRITE HEADER AND DATA COMMAND 


THE HEADS WILL BE BROUGHT TO CYLINDER @ BY A SEEK 


A READ DATA COMMAND WILL BF GIVEN TO CYLINDER 1 TRACK @ 
SECTOR 6 15@, WORDS, THIS WILL TAKE AT 

LEAST 7 MILT SECONDS, IMMEDIATELY AFTER GO AT 

IMPLIED SEEK TIME, WRITE INTO A REGISTER WILL BE ATTMEPTED 
THEN READY WILL BE WAITED ON TO COMPLETE THE READ DATA 
THEN ALL REGISTERS WILL BE COMPARED AND THE DATA READ 
SHOULD BE GOOD 

THIS WILL BE REPEATED FOR RHCS1, RHER1, RHDST, RHER2 

RHOF, RHCA, RHER3 


SPOSOOSSOHSSEESOCEHEOSEESOSOOESS HSCS OSLESESSOOSHSOSE OSC HOES OO OS 
TEST 27 REGISTER MODIFICATION PEFUSED RMR-BIT#2 IN RHERI 


A WRITE HEADER AND DATA COMMAND WILL BF GIVEN TO 
CYLINDER 1 SECTOR @ TRACK @ DATA WORDS 


OF 070707 

A WRITE DATA COMMAND WILL BE GIVEN TO CYLINDER 1 
SECTOR @, TRACK @, 256 WORDS OF 2000 

AND 4 WORDS OF 2001, IMMEDIATELY AFTER GO 

AN ATTEMPT WILL BE MADE TO MODIFY A REGISTER 
RMR BIT #2 IN RHER1 SHOULD SET 


AFTER THE WRITE IS COMPLETE ALL REGISTERS WILL 
BE CHECKED 


THE DATA WRITTEN WILL BE PEAD BACK AND CHECKED 


THIS WILL BE REPEATED FOR PHCS1, RHERI, RHDST, 
RHER2, RHOF, PHCA, RHER3 


18#-0CT<74 19318 
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SCSSCCHSEEEEE SEES OES SESEVESOE SCS ESESOOHOLOSESS SESE SOECORELODS 
TEST 30 REGISTER MODIFICATION PEFUSED BIT #2 PHERI 


A READ DATA COMMAND IS GIVFN TO CYLINDER 4, SECTOR @ 
TRACK @, IMMEDIATELY AFTER GO RHAS TS WRITTEN INTO 
WITH ALL ONES R¥R BIT @2 IN RHER SHOULS NOT SET 


SSOCSSHSSSEEHSOSESHESOSHSORHSHECESETOHSS SOOT SCSODESOSSOEE SORES 
TEST 31 ILLEGAL FUNCTION BIT #@ IN RHERI 


THIS WILL CALCULATE EVERY ILLEGAL FUNCTION 
BETWEEN @ AND 77, EACH TIME AN ILLEGAL FUNCTION 
IS FORMED IT WILL BE STOPED IN ILLEGAL THEN 
EXECUTION OF ILLEGAL 

WILL BE ATTEMPTED AND RESULTS CHECKED 


SESSSSSSS SESH HESSESESHSOHHSESEOHOSESESOHHSC CESS SOSH OSSSE OED EOS 
TEST 32 ERROR REGISTER 1 = BIT 013 OPT 
A WRITE HEADER AND DATA COMMAND I8 GIVEN 
CYLINDER @ SECTOR 1 TRAC” @ FEYS @ DATA 177777 
WORDCOUNT 260 


AFTER GO Is GIVEN THEN THREE INDEX PULSES ARE 
GIVEN, THIS SHOULD BRING OPI HIGH 
SPSOCHOS HESS OSHSOSESSHEESCEHOTHSEOESSOHESEOSEHOSSE OOD ECOO ESOS 


SOPESHSESETOSSSOESOHHSSSSHSSHSHESSOSOSHOSOSEHEOOSESOSOOSSECCOORS 
TEST 33 ERROR REGISTER 01, BIT #13 OPT 


THIS WILL TEST THAT OPI DOES NOT SET WHEN THREE NORMAL 
INDEX PULSES ARE ENCOUNTERED IN A READ COMMAND 


FIRST 46 CONSECUTIVE SECTORS WILL BE FORMATTED 
STARTING FROM CYLINDER @ TRACK @ SECTOR 21. 
FORMATTING WILL BE DONE BY A WRITE HEADER AND 
DATA COMMAND FOR 4 WORDS, OWE SECTOR 

AT A TIME 


THEN A READ HEADER AND DATA WILL BE DONE 
FOR CYLINDER ® TRACK ® SECTOR 21 FOR 
11960 WORDS (260,X%22X%2¢260¢260) WITH BUS 
ADDRESS INHIBIT SET, 


AT THE ENP ALL PEGISTERS WILL BE CHECKED, 


189OCT=-74 19318 
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7661 
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SOSSSSOSEHOSSSSHSESSSSSO HOTS HESSOESS SOHO SESE SOEHE COTES HODETOES 


SESSSHSSSSOSSOSSESSSOSOHSEHSESSSH SES OSOSOSOSHOESSSSSOCERETOSES 
TEST 34 HEAD SELECTION TEST 
THIS TESTS HEAD SELECTION LOGIC ONLY, A WRITE HEADER AND 
DATA COMMAND IS GIVEN TO EACH TRACK FROM @ TO 18 ON 
CYLINDER 6, SECTOR @, 
THE DATA ON EACH SECTOR IS UNIQUE, THE LEAST SIGNIFICANT 
5 BITS GIVE SECTOR THE NEXT LEAST SIGNIFICANT S BITS 
GIVE TRACK THE NEXT 6 BITS GIVE CYLINDER 


THEW READ HEADER AND DATA TS DONE FOR THE ABOVE AND DATA 
CHECKED 


BETWEEN THE WRITE AND PEAD ONLY ERR AND TRE ARE CHECKED 


OW AN ERROR IN THE READ HEADER AND DATA LOOPING WILL BE 
ONLY ON THE ERROR SECTOR READ 


SOROSSESHLOSSSOSOHSSCOHHSES FESO SOUS OCOSHSSESOSOOECOROCOOHOOLEE 
TEST 35 DIFFERENCE LINES 


A WRITE HEADER AND DATA WILL BE DONE OW ALL CYLINDERS 
UP TO 256 ON SECTOR ZERO, TRACK ZERO, THE DATA WILL BE THE 
CYLINDER NUMBER 


THEN A RECALIBRATE AND READ HEADER AND DATA WILL BE DONE 
ON CYLINDERS @512254¢8.16232264,128,256, 


DATA WILL BE CHECKED 
ON AN ERROR LOOPING WILL BE DONE ON 
READ ONLY 


OPSOSOSESEESEOEESOHSOOOSESEEEHESSSSSSESSESOSOSOECSEEHSEEOODE TES 
SOSFERFHESEEHUSSFSTOS SOUR ETE OTOTTESAOTOETOGOHDOODHSHOUSETOESOS 
TEST 36 END OF DRIVE 


THIS IS THE END OF TEST FOR ONE DRIVE 

IF THERE ARE MORE DRIVES THEN THE PROGRAM 

JUMPS TO TEST S FOP NEXT DOPIVE TEST 

END PASS IS REACHED ONLY AFTER ALL DRIVES ARE COMPLETE 


18-O0CT=$74 19918 
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7699 


7741 


8477 


8540 


7697 SSOSCSHSSSSSSSSSESSHSSHSSFSSSSHSSHSESSHESHSSCSSSSHSESHSEHSHSHSSSSSEESS 


SSSSSHSSSSSSSSSSSHSHSHSSSSHSSSHSEHSSESSGSSHSSSESHSESSSSSHSHSHSSHSSEHHECSVHES 


END OF PASS ROUTINE 
SPECS SOHHSOSCESHSSHOTSOSESSOTOESOSOSTHOSESSHSESHSHOHOEEHOSHSOOUTODS 


7701 INCREMENT THE PASS NUMBER (SPASS) 
TYPE "END PASS @XXXXX* (WHERE XXXXX IS A DECIMAL NUMBER) 
IF THERES A MONITOR GO TO IT 
IF THERE ISN°T JUMP TO TSTi 


SSHSSHHSSSSSSSSSOSSHSESEKSSSSCSSSHESSSHHSHSHSSHSSESSSSSHHSHESHSSGHHTEEHHS 


SUBROUTINES 
POCSTOSEEESOSSFOSSOSEESOCLESOSOSESSESESE SSS ECCOHOOSESET SOO ECCE OR OES 


8407 THIS ROUTINE WILL ALLOW THE CHANGE OF THE BASE 
ADDRESS FROM 176790 TO ANY TYPED VALUE 


6474 SESUSIPRTSHSVOBTHOOHHESEES 
POOTCOGROLSSLGOSHESHFOCEOSESOTSSERITEASMSS HSE DESMO EHS S VOU HE HSOBOS 


SHSPESSSHOSSOSSSSSESEESSHSESHSHHSHHOSEHSOSSSOFHSPHSOSOOSOEHOEEEOS 
SCOPE HANDLER ROUTINE 
PPSSSESHSESSO SS SSOSSEHHEHOSOSHSHHOCHOTESSESESSHSOGOTOOSCOTSOESEEOS 


8479 THIS ROUTIWE CONTROLS THE LOOPING OF SUBTESTS, IT WILL INCREMENT 
AND LOAD THE TEST NUMBER(6TSTNM) INTO THE DISPLAY REG, (DISPLAY<7:6>) 
AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:06> 
THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
$Wi4s1 LOOP ON TEST 
SWiisi INHIBIT ITERATIONS 
$¥09s1 LOOP ON EPROR 
S¥06s1 LOOP ON TEST IN SWRC7:0> 
CALL ; 
SCOPE +sSCOPESIOT 


FESSSECSOEEOSORSSSSE OSH SSOEE OOS HSS OESOSOSESEOTETESESESOCEEOOTE ORE 
CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
SSSSOEESCOSOSESOESESERESOEEHSHOECHEOHOTSOSSCEHSSSSSESOCOTESHSEHEOS 


8542 THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A S@DIGIT 
SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT, DEPENDING ON WHETHER THE 
NUMBER IS POSITIVE OR NEGATIVE A SPACE OP A MINUS SIGN WILL BE TYPED 
BEFORE THE FIRST DIGIT OF THE NUMBER, LEADING ZEROS WILL ALWAYS BE 
REPLACED WITH SPACES. 
CALL: 


MOV NUM, (SP) s3PUT THE BINARY NUMBER ON THE STACK 
TYPDS 33GO TO THE ROUTINE 


1heOCT=74 19218 
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6655 





TYPE ROUTINE 
SOSSSSSSESSOSOHHSSSESSSHSHSSOSHSSOTOHOSHSHS SHO SEOSSPHESSHEEEROT OS 


8610 ROUTINE TO TYPE ASCTZ MESSAGE, “ESSAGF MUST TERMINATE WITH A @ BYTE, 
THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTEP A LINE FEED, 
NOTE1s SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER, 
NOTE2: SFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED, 
NOTE3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER, 


CALL: 
1) USING A TRAP INSTRUCTION 
TYPE oMESADR ssMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
oP 
TYPE 
MESADR 
2) USING A JSP INSTRUCTION 
MOV PS,-(SP) #3PUSH PROCESSOR STATUS WORD ON THE STACK 
JSR PC, STYPE s3CALL TYPE ROUTINE 
MESADOR :sFIRST ADRESS OF MESSAGE 
6653 SPPOSSHOOSOOESESOSOEEOSESE COT HSSOSSCOSSSOTEEEODOCSCSECHSOOOOOE 


SSSSSSOSSSSSSSSSHSSSSSSHSSSHSHSSESHSSSSSSSHSSESSSHSSHOSSSHSSSSHSESHEESS 


TTY INPUT ROUTINE 
FSPSSPESOSEOSSESESSSOHOCOSTSTCSEOSOHOPOTSSESOSCOHO ETH OCEOHSED ESTERS 


8664 TK INITIALIZE ROUTINE 
THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEVE 
SETUP THE INTERRUPT VECTOR AND TURN OW THE KEYBOARD INTERRUPT 
CALL 
JSR PC, STKINT 
RETURN 


6681 TK SERVICE ROUTINE 
THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 


87963 BESGPOEIE SSS OLSPHTHRESOTSVE SOHC SSSIOFHSFS TSU IEESFSESLESEHESRABOR 
THIS ROUTINE WILL INPUT A SINGLE CHARACTEP FROM THE TTY 
CALL? 
RDCHR s3 INPUT A SINGLE CHARACTER FROM THE TTY 
RETURN HERE ssCHARACTER IS ON THE STACK 


8723 SESS SHSEOSPOSHESOCOSEHSSOSHSSESESOSSSOHTESEESHOSSSESOCOCOOES 
THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
CALL: 


RCLIN :sINPUT A STRING FROM THE TTY 
RETURN HERE s3ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
ssTERMINATOR WILL BE A BYTE OF ALL 0°S 
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8761 


eas 


8862 


8759 SSSSSSSESSSHSSESHESSSSHSSHSSSSSSHSSSSSHSSSOSSHSESHOCESSOREEEED 


PEAD AN OCTAL NUMBEP FROM THE TTY 
SOPSCOHSSHSESSEESSOSSOTEOHSSESSESOSHCHHESESTO SS OSESOSSSES ES OCLODS 


6763 THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBEP FROM THE TTY AND 
CHANGE IT TO BINARY, 
THE INPUT CHARACTERS WILL BE CHFCFKFD TO INSURED THEY ARE LEGAL 
OCTAL DIGITS, IF AN ILLEGAL CHARACTER IS READ A °?° WILL BSE TYPED 
FOLLOWED BY A CARRIAGE RETURN-LINE FEED, THE COMPLETE NUMBER MUST 
THEN BE RETYPED, THE INPUT IS TERMINATED BY TYPING A CARRIAGE RETUPN, 
CALL: 


RDOCT #s;READ AN OCTAL NUMBER 
RETUPN HERE s3LOW ORDER BITS ARE ON TOP OF THE STACF 
ssHIGH ORDER BITS ARE IN SHIOCT 
6813 POSCCSHSSSEES SESE SE STOSEH SHO HOSSS OSES HECHT SOSHOCESSOSOOSOOECSS 


OPSSSSSSESSOSSSSOSSSSCEEOSETESESSSF OSHS HEHOCTTOHHETEROTOESESOOCOS 
ERROR HANDLER ROUTINE 
FOSS SESSOSSCOSSSSSESHS SOSH HS THEOSOESSOCHSEHOSEOOHESHSOCEHESOOSOOS 


6617 THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERPOR COUNT, 
SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
AND GO TO SERRTYP OW ERROR 
THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE? 
SwiSei HALT OW ERROR 
SWi3e1 INHIBIT ERROR TYPFOUTS 
SWi9ei BELL OW ERROR 
S$we9s1 LOOP ON ERROR 
CALL 
ERROR N S9ERRORSEMT AND NEERROP ITEM NUMBER 


ERROR MESSAGE TYPEOUT ROUTINE 
POSS OSOSSHSOOSEOOSESESOSOESSSE HO SOSHSTELOOSODUSODOPESSO TOSSES ES ORS 


8663 THIS ROUTINE USES THE “ITEM CONTROL BYTE (SITEMB) TO DETERMINE WHICH 
ERROR IS TO BE REPORTED, IT THEN OBTAINS, FROM THE “ERROR TABLE® (SERRTB), 
AND RFPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR, 
IT 18 A COPY OF THE SERRTYP SUBROUTINE FROM SYSMAC, 


8667 WITH ONLY MINOR CHANGES 
FIRST IF SWITCH 6 IS SET AND SWITCH @ RESET THEN 
ALL REGISTER CONTENTS WILL BE TYPED BEFOR REPORTING THE ERROR 
SECOND IF THE CURRENT ERROR HAS THE SAME ITEM NUMBER 
AS THE PREVIOUS ERROR THEN ONLY THE DATA WILL BE TYPED 
AND NOT THE ERROR MESSAGE AND HEADER, 
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SHSCOSSESCHESE SSO CHSECE SSS SO OSHS SOOTHES ES OOOH HOSE HESECUSOCREDORES 
9092 BINARY TO OCTAL (ASCII) AND TYPE 
FOO COOSCSESCESSESSOSSEEOOOGO SESS SSSE SSS OCHSOHOSTOSSSSESSEREOOOES 


9094 THIS POUTINE IS USED TO CHANGE A 16°BIT BINARY NUMBER TO A 6-DIGIT 
OCTAL (ASCII) NUMBER AND TYPE IT, 
STYPOSeecENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBEP OF DIGITS TO TYPE 


CALL? 
MOV NUM, ©(SP) s3NUMBER TO BE TYPED 
TYPOS ssCALL FOR TYPEOUT 
eBYTE N 33N2i1 TO 6 FOR NUMBER OF DIGITS TO TYPE 
eBYTE M s9¥2i OR @ 


ssisTYPE LEADING ZEROS 
ssOSSUPPRESS LEADING ZEROS 


STYPONsesENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
STYPOS OR STYPOC 


CALL: 
MoV NUM, @(SP) ssNUMBER TO BE TYPED 
TYPON ssCALL FOR TYPEOUT 
STYPOCe-cENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
CALL: 
MOV NUM,©(SP) ssNUMBER TO BE TYPED 
TYPOC ssCALL FOR TYPEOUT 
9168 —=«-_ «POH HSHSHOEESOEESESESEOEEEODEOTESSOSOSHSEDOFOTOSOOSOSOOODHDOEOE 


SSSSCSHSSSLSOSSHSSHSSSHSHSSSSSESSHSSSSHSSHHSSSSSSOSHSHSHOSOSEHHSSGOREE 
9170 TRAP DECODER 
SSHSHSSHSSSSSHSSSHSSCHSHSESCSHSSSHSHSSSHSSSSSHSSCHSCHHSSEHEHSHHSHSCEHEEE 


9172 THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP® INSTRUCTION 
AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
OF THE DESIRED POUTINE, THEN USING THE ADDRESS OBTAINED IT WILL 
GO TO THAT ROUTINE, 
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9185 


9707 


TRAP TARLF 
FOSSTSSSESHSO SC HESHSHESESEHS HS ESE SE SSESSHESHOESESSSEESESSESOUEOESS 


9187 THIS TABLE CONTAINS TKF STARTING ADDRESSES OF THE ROUTINES CALLED 
BY THF “TPAP® INSTRUCTION, 


9205 SSSSSSSFSHSSSSHSSSSHSSSESHSESSESHOSSSCHSSSSSCHSHSSHS SHEET OSESECEEES 
SSSSCHSSSSSSSSSHSSSSSHSSSHSSSSSHOSHSESSHSSSHSSSSHSSSSEE SESE SSOS SSH SET ED ES 
POWER DOWN AND UP ROUTINES 


SSSSSSSSSSSSSSSSSHSSSHSSSSSHSSSSCSSSSHSHSSESSESSSHSSFSHSSHSSSESTFECEES 


92747 SSSSHSSSSSSSSSSSSEHSHSSSHSSSHESSFSSSSSSHHSHEHSHSHHSHSHSHSSSSSSSSSHSSTSCOBERS 
SSSSSSSHSSSHHSSSHSHSSSSHSSSHSSSHSESEHSSSHSHSSESSSSSSSSHSSHHSSSSSHSSEHSHTHSHS EES 


SEQ 0627 
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23 
7 
143 
159 
166 
205 
258 
1162 
1344 
1464 
1503 
1524 
1645 
1698 
1741 
1781 
1907 
7178 
2542 
2798 
3039 
3462 
3619 
3957 
4105 
4242 
4416 
4550 
5141 
54990 
5687 
5953 
6361 
6517 
6702 
6869 
7071 
7374 
7683 
71730 
7772 
8508 
8572 
8642 
8716 
862A 
BRe2 
8929 
9159 
9237 
9252 
9274 
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TABLE OF CONTENTS 


OPERATIONAL SWITCH SETTINGS 
BASIC DEFINITIONS 

TRAP CATCHER 

STARTING ADDRESS(ES) 

MEMORY MANAGEMENT DEFINITIONS 
COMMON TAGS 

ERROR POINTER TABLE 

REGISTER ADDRESSES 

REGISTER TEST 


T1 

T2 

T3 

T4 

TS 

T6 

T7 

T10 
Til 
T12 
T13 
T14 
T15 
T16 
T17 
T20 
T21 
T22 
T23 
T24 
T25 
T26 
T27 
T30 
T31 
T32 
T33 
T34 
T35 
T36 


REFERENCE EACH REGISTER 
PARTIAL TEST FOR RHAS FOR UNIT NUMBERS PRESENT 
TEST FOR DRIVES PRESENT USING RHAS AND RHCS2 
TYPE SERIAL NUMBER AND DRIVE TYPE 

PROGRAM INTERRUPT 

INTERRUPT AT PROCESSOR AND DISK PRIORITY SAME 
SET VV BIT 86 IN RHDS! 

LAST BLOCK TRANSFERED-RHDS1 BIT#10 

SEARCH COMMAND 

SEARCH COMMAND 

HEADER COMPARE ERROR = PHER1 BIT 87 

HEADER COMPARE EPROR = PHEP! PIT #7 

HEADER COMPARE ERROR - RHERI BIT #7 

RESTORE SECTOR 1 CYLINDER 1 TRACK 1 

INVALID ADDRESS ERROR RHER1©BIT #10 

INVALIO ADDRESS ERROR RHER1 - BIT 810 

INVALID ADDRESS ERROR RHER1 BIT #10 

INVALID ADDRESS ERROR RHER1 = BIT 816 

ADDRESS OVERFLOW ERROR RHEPi= BITS9 ACE 
FORMAT ERROR RHER1 BIT 04 

FORMAT FRROR RHERI BIT #4 

REGISTER MODIFICATION REFUSED BIT #2 RHERI 
REGISTER MODIFICATION REFUSED RMR-BIT#2 IN RHERI 
REGISTER MODIFICATION REFUSED BIT #2 RHERI 
ILLEGAL FUNCTION BIT 0@ IN RHERI 

ERROR REGISTER 1 © BIT #13 OPI 

ERROR REGISTER #1, BIT #13 OPT 

HFAD SELECTION TEST 

DIFFERENCE LINES 

END OF DRIVE 


END OF PASS ROUTINE 

SUBROUTINES 

SCOPE HANDLER ROUTINE 

CONVERT BINARY TO DECIMAL AND TYPE POUTINE 
TYPE ROUTINE 

TTY INPUT ROUTINE 

READ AN OCTAL NUMBER FROM THE TTY 
ERROR HANOLER ROUTINE 

ERROR MESSAGE TYPEOUT ROUTINE 
BINARY TO OCTAL (ASCII) AND TYPE 
TRAP DECODER 

TRAP TABLE 

POWER DOWN AND UP ROUTINES 
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eTITLE MAINDEC©11°DERPV-B 


s*COPYRIGHT (C) 1976 


s*#DIGITAL FQUIPMFNT CORP, 


s®MAYNARD, MASS, 01754 


:®PROGRAM BY SUB MALLICK 


28 
s®THTS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
s@PACKAGE (MAINDEC211°DZQAC-AS), 


S7ONG SONS SONG JONG JONG JONG SONG JONG SONG SONS JONG SONG SONG SONS SONG JONG JONSSON 
SAONS SONG JONG JONG JONG JONG JONG SONG SENG JONG JONG SONG JONG SONS SONG JONG SONG JONG 
STONE TONG JONG JONG JONG JONG JONG JONSSON SONS SONS SONG SONG SONG JONG SONS SONS JONG 


sORTVE MUST BE LOCKED IN A OR B 


S7SN@AEN]SEN@SENGSENOSENGSENG/SSNOSENOSENOSEN@/ENO/SSNO/ENO/SNO/ENO/ENO/3 NO 
S7INMSSENG@SENGSENGZEN@SENGZENGSENG@SENG@SENGSEN@SENO7 ENO ENO EN@/s\O/3s\a/3\e 
S7EN@FENG@SENGSENGSEN@SENG SENG ENGS ENG ENG ENO ENO SN@/ENG@/E NGOS Nass N\e/s\o 


39 481960 


42 177776 


4g 177774 
45 177772 
46 177570 
47 177870 


$@ 000000 
51 000001 
52 890002 
53 000003 
54 060006 
55 0000605 
56 000006 


a 


OPERATIONAL SWITCH SETTINGS 


USE 
RESABWBOPFQ@eneawwrerzraQqwewe a 
HALT ON ERROR 
LOOP OW TEST 
INHIBIT ERROR TYPEOUTS 
INHIBIT ITERATIONS 
BELL OW ERROR 
LOOP OWN ERROR 
LOOP OW TEST IN SWR<730> 
STOP FURTHER COMPARES IF SwOe IS LOW 
TYPE ALL REG, WITH ERROR IF Swe LOW 


BASIC DEFINITIONS 


s®INITIAL ADDRESS OF THE STACK POINTER eee 1000 eee 


s9BASIC DEFINITION OF ERROR CALL 
s9BASIC DEFINITION OF SCOPE CALL 
s3PROCESSOR STATUS WORD 


ssSTACK LIMIT REGISTER 
ssPROGRAM INTERRUPT REQUEST REGISTER 
s3SWITCH REGISTER 


s®GENFRAL PURPOSE REGISTER DEFINITIONS 


eSBTTL 

36 

3@ SWITCH 
3° Pome es 
3@ 15 
bd 14 
s@ 13 
38 ii 
38 10 
38 3 
3% § 
36 7 
3@ 6 
eSBTTL 

STACKs 1600 
eEQUIV EMT,ERPOR 
eEQUIV I0T,SCOPE 
PSs 177776 
eZQUIV PS,.PSW 
STKLMTs 177774 
PIRQGs 177772 
SwWRe 177570 
DISPLAY2S4R 
RAs a 

Ris el 

R2s a? 

R3s %3 

R4s a4 

RSs $5 

R6s %6 


s3GENERAL REGISTER 
ssGENERAL REGISTER 
s;GENERAL REGISTER 
ssGEWERAL REGISTER 
ssGENERAL REGISTER 
ssGENERAL REGISTER 
ssGENERAL REGISTER 
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BASIC DEFINITIONS 


MAINDEC#11-DERPV<-B 
DERPVB,P11 
57 900007 
58 
59 
60 
61 
62 039000 
63 000040 
64 900100 
65 000140 
66 900200 
67 400240 
68 088300 
69 000340 
710 
711 
72 100000 
73 040000 
74 820000 
75 010000 
76 004000 
77 002900 
78 001000 
19 060400 
80 900200 
61 600100 
82 000040 
83 000020 
84 800010 
85 600004 
86 000002 
87 000001 
88 
89 
99 
91 
92 
93 
94 
95 
96 
97 
aR 
99 
108 100000 
101 049900 
102 #20000 
103 418600 
104 084000 
105 902000 
106 901000 
107 000400 
108 000200 
109 800100 
110 000040 
111 890020 
112 860019 


ne eee 
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RJ 
eFQUIV 
eEQUIV 


&7 
PR6,SP 
R7,PC 


+3;GENERAL RFGISTER 
s3STACK POINTER 


s3PROGRAM COUNTFR 


s*#PRIORITY LEVEL PEFINITIONS 


PR@s 
PRis 
PR22 
PR3s 
PR4s 
PRSs 
PR6s8 
PR7s8 


a 
4a 
190 
140 
200 
240 
350 
340 


ssPRIOPITY 
ssPRIORITY 
ssPRIORITY 
ssPRIORITY 
ssPRIOPRITY 
ssPRIORITY 
ssPRIORITY 
ssPRIOPITY 


LEVEL 
LEVEL 
LEVEL 
LEVEL 
LEVEL 
LEVEL 
LEVEL 
LEVEL 


s®*SWITCH REGISTER" SWITCH DEFINITIONS 


SWi5e 
SWwi4s 
SWi3s 
SWi22 
SWiis 
SW10s 
Sweg9os 
Swaas 
Swa7s 
Swe6s 
Sess 
SwWO4e8 
SWO38 
SwWO22 
SwWOizs 
SWOGs 
eEQUIV 
EQUIV 
EQUIV 
EQUIV 
eEQUIV 
eFOQUIV 
EQUIV 
EQUIV 
EQUIV 
eEQUIV 


2®DATA 
BITISs 
BITi4¢s 
BITi3s 
BITI2« 
BITIiis 
BITIOs 
BITO9s 
BITOGs 
BITO7s 
BIT#6s 
BITOSs 
BITA4s 
BITO3s 


1990200 
49qa9e 
20000 
19000 
4AVO 
2900 
190¢ 

440 

200 

100 

4a 

2a 

1a 

4 

2 

i 
SwWO9,SW9 
Swee, Swe 
$W07,SW7 
SW06, S66 
8We05,S5W5 
SwWO4,SW4 
S$W03,SW3 
SW02,SW2 
SW01,SWi 
SW00,SWA 


BIT DEFINITIONS (BIT@@ TO BIT1S) 


19¢00a 
40ane 
20000 
19000 
4060 
2900 
1996 
400 
200 
190 
40 

20 

10 


MPFPURSwWND 
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113 
114 
115 
116 
117 
118 
119 
124 
1271 
122 
123 
124 
125 
126 
127 
128 
129 
13a 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
15@ 
151 


152 #90200 


153 


154 90210 


155 


90004 
000902 
9090901 


A06064 
000010 
a90014 
090014 
000914 
#90020 
000024 
800039 
490034 
000060 
000064 
000240 


090137 
090210 
000137 
000220 
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094666 
94652 


156 980220 000137 904636 


157 
158 
159 
164 
161 
162 
163 
164 
165 
166 
167 
168 
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BIT@2@= 4 

BIT@#i= 2? 

BITA99= 1 

eFOUTV BITO9,BITS 
eEQUIV BITOB,BITA 
eFQUIV BITAT,BIT? 
eEQUIV BITO6,BIT6 
EQUIV AITOS,BITS 
eEQUIV BITA4,BIT4 
eEQUIV BITA3,BIT3 
eEQUIV BITA2,BIT2 
eEQUIV BITO1,BITI 
eEQUIV BITOO,BITS 


2*®BASIC "CPU" TRAP VECTOR ADDRESSES 

ERRVECs 4 ssTIME OUT AND OTHER ERRORS 

RESVECs 10 s3RESERVED AND ILLEGAL INSTRUCTIONS 
TBITVECS14 s3"T° BIT 

TRIVECs 14 s3TRACE TRAP 

BPTVECs 14 s;BREAKPOINT TRAP (BPT) 

IOTVECs 2¢ seINPUT/OUTPUT TRAP (TOT) #*#SCOPESe 
PWRVEC® 24 27POWER FAIL 

EMTVEC2 30 s9EMULATOR TRAP (EMT) #eERRORGO® 
TRAPVEC#S34 s3"°TRAP® TRAP 

TKVECs 60 esTTY KEYBOARD VECTOR 

TPVECs 64 seTTY PRINTER VECTOR 

PIROVECs240 s3PROGRAM INTERRUPT REQUEST VECTOR 


eSBTTL TRAP CATCHER 


20 
s@ALL UNUSED LOCATIONS FROM @ © 776 CONTAIN A *,¢2,HALT® 
s@SEQUENCE TO CATCH ILLEGAL TRAPS AND INTER®UPTS 
s®LOCATION @ CONTAINS @ TO CATCH IMPROPERLY LOANED VECTORS 


eSBTTL STARTING ADDRESS(ES) 
23200 


@SBEGIN s3JUMP TO STARTING ADDRESS OF PROGRAM 


@8BEGIN2 2JUMP SFLECT TEST 

@CBEGINI sJUMP TO NO OPERATOR TESTS 
s@STARTING ADDRESS 200 FOR NORMAL STARTS 
s®THIS WILL TEST ALL RP@4°S ON THE SYSTEM A SINGLE DRIVE AT A TIME 
Tr) 
s@®STARTING ADDRESS 210 WILL TEST ONLY ONE SPECIFIED DRIVE 


ge 
s@STARTING ADDRESS 220 WILL JUMP OVER THE TESTS REQUIPING AN OPERATOR 
s@AT THE DRIVE 


eSBTTL MEMORY MANAGEMENT DEFINITIONS 
s®KT11 VECTOR ADDRESS 
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169 AA0250 
170 
171 
172 
173 177872 
174 177574 
175 177576 
176 172516 
177 
176 
179 
180 172300 
181 172302 
182 172304 
163 172306 
1A4 1723190 
185 172312 
186 172314 
187 172316 
188 
189 
199 
191 172340 
192 172342 
193 172344 
194 172346 
195 172358@ 
196 172352 
197 172354 
198 172356 
199 
290 
241 ee11190 
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MEMORY MANAGEMENT DEFINITIONS 


“MMVECe 


s@KT11 STATUS PFGISTER ADDRESSFS 


Skés 
SRie 
SP22 
SR3s 


S@KERNAL “I"° PAGE DESCRIPTOR REGISTERS 


KIPDROs 
KIPORIi=s 
KFIPDR2s 
KIPDR3s 
KTPDR42 
KIPDRSs 
KIPOR62 
KIPDR72 


s®KERWAL “I" PAGE ADDRESS REGISTERS 


KIPARGs 
KIPAPis 
KIPAR2« 
KIPAR3s 
KIPAR4s 
KIPARSs 
KIPAR6s 
KIPAR?s 


FSSSSSSSSSHSHSSSSSSSSSSHSSSSHSHSHSSSHSSHSSSSSHHSSSHSSSSSHSSCSSESCSCSES 


250 


177872 
177574 
177576 
172516 


172300 
172302 
172304 
172306 
172310 
17231? 
172314 
172316 


172340 
172342 
172344 
172346 
172350 
172352 
172354 
172356 
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20? 
203 
204 
205 
206 
207 
208 
2a9 
219 
211 
212 
713 
214 
215 
216 
217 
218 
219 
224 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
249 
250 
251 
252 
253 
254 
255 
256 
257 


091100 
601109 
901102 
001103 
001104 
071106 
001110 
#01112 
001114 
001115 
@A1116 
001120 
001122 
001124 
091126 
901130 
901136 
001140 
001142 
001144 
001146 
001147 
001150 
#1151 
001152 


001154 
001156 
001160 
001162 
001164 
001166 
#01170 
001172 
001174 
001176 
001200 
091202 
091204 
001206 
21210 
901214 
901215 
001216 
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000046 
027650 


ae1100 


0A0000 
00a 
000 
090000 
830000 
0A8000 
800060 
000 
601 
009000 
090800 
000000 
000000 
420000 
800000 
177560 
177562 
177564 
177566 
000 
@A2 
012 
600 
AHOHO0 


900900 
000000 
aaenee 
000000 
840900 
000600 
anenee 
AAGBOA 
898000 
000000 
890600 
080000 
900000 
490000 
177607 

077 

O15 
000012 


A9808E AFPCRO 


090377 


16322 PAGE 5 


PFSESSSSSSSSSHSSSHSSHSHSSHSHSHSHSHSEHSHSCSSSESHSHSSHOSHSESHSSCSSRSSHSSSESS 


eSBTTL COMMON TAGS 


:®THTS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
s#USED IN THE PROGRAM, 


2246 
SENDAD 
21190 
SCMTAG: 
SPASS: .WORD 
STSTNMs: BYTE 
SERFLG: BYTE 
SICNT: ,WORD 
SLPADRs ,WORD 
SLPERR: WORD 
SERTTL: WORD 
SITEMB: BYTE 
SERMAX: BYTE 
SERRPCs: WORD 
SGDADR: WORD 
SBDADRs WORD 
SGDDATs: WORD 
SBDDAT: WORD 
WORD 
STKSs: 17756¢ 
STKB: 177562 
STPS: 177564 
STPB: 177566 
SNULL: ,BYTE 
SFILLS: BYTE 
SFILLC: ,BYTE 
STPFLG: BYTE 
SREGAD: WORD 
GREGG: ,WORD 
SREGi: ,WORD 
SREG2: WORD 
SREG3: .WORD 
SREG4: ,WORD 
SREGS: ,WORD 
STMPO: ,WORD 
STMPi: ,WORD 
STMP2: ,WORD 
STMP3: .WORD 
STMP4: ,WORD 
STMPS: ,WORD 
STIMES: O 
SESCAPE:0@ 
SBELL: ,ASCIZ 
SQUES: ,ASCIT 
SCRLFs: ,ASCIT 
SLFs: eASCIZ 


Sssss3s3999939 S3-NV9 


<207>¢€377>¢€377> 


s3LOGICAL FND OF PROGRA” 


s3START OF COMMON TAGS 

ssCONTAINS PASS COUNT 

3CONTAINS THE TEST NUMBER 
ssCONTAINS FRROR FLAG 

ssCONTAINS SUBTEST ITERATION COUNT 
ssCONTAINS SCOPE LOOP 

s3CONTAINS SCOPE RETURN FOR ERRORS 
ssCONTAINS TOTAL ERRORS DETECTED 
ssCONTAINS ITEM CONTROL BYTE 
s3CONTAINS MAX, ERRORS PER TEST 
ss3CONTAINS PC OF LAST ERROR INSTRUCTION 
ssCONTAINS OF °GOOD’ DATA 
s3CONTAINS OF °BAD*’ DATA 
ssCONTAINS °GOOD’ DATA 

ssCONTAINS °BAD* DATA 

2 RESERVED--NOT TO BE USED 

ssTTY KBD STATUS 

se3TTY KBD BUFFER 

seTTY PRINTER STATUS REG, 

seTTY PRINTER BUFFER REG, 
ssCONTAINS NULL CHARACTER FOR FILLS 
ssCONTAINS @ OF FILLER CHARACTERS REQUIRED 
s3INSERT FILL CHARS, AFTER A “LINE FEED® 
e9"TERMINAL AVAILABLE® FLAG (8I1T<O7>e@sYES8) 
ssCONTAINS THE FROM 

2:3WHICH (§REG@) WAS OBTAINED 
ssCONTAINS ((SREGAD) +60) 

ssCONTAINS (($REGAD)+¢2) 

ssCONTAINS ((SREGAD)¢4) 

ssCONTAINS ((SREGAD) +6) 

ssCONTAINS ((SREGAD)+10) 

ssCONTAINS ((8REGAD) 12) 

ssUSER DEFINEN 

29USER DEFINED 

23USER DEFINED 

s3USER DEFINED 

s3USER DEFINED 

23;USER DEFINED 

39MAX, NUMBER OF ITERATIONS 
s3ESCAPE ON ERROR 

23CODE FOR BELL 

s3QUESTION MARK 

ssCARRIAGE RETURN 

t7LINE FEED 
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258 
259 
26a 
761 
262 
263 
204 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
289 
281 
282 
2863 
204 
285 
286 
287 
288 
289 
790 
291 
292 
293 
294 
295 
296 
297 
298 
299 
399 
301 
302 
303 
304 
305 
306 
307 
308 
3a9 
310 
311 
312 
313 


091220 


041220 


001224 
001226 


091234 
001236 


001240 
401242 


401244 


COMMON TAGS 


#36452 
#52666 


054706 
055179 


036501 
052666 


054706 
055170 


036570 
052666 


054706 
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FHSSOLOSOSS SESE SFOS ESSE TESTES OSEHEHOHOSSOCOSETOSESESHTESESOEROSS 
eSBTTL FRPOR POINTER TABLE 
s@THIS TABLF CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR, 


s#THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
S*®LOCATION SITEMB, THIS NUMBER INDICATES WHICH TTEM IN THE TARLE IS PERTINENT, 


s@eNOTEIs IF SITE“A IS @ THE ONLY PERTINENT DATA IS (SERRPC),. 

s@NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
3° —M ssPOINTS TO THE ERROR MESSAGE 

se OH ssPOINTS TO THE DATA HEADER 

7% OT s3POINTS TO THE DATA 

38 OF ssPOINTS TO THE DATA FORMAT 

SERRTB? 


s ITEM) 
EM sRPO4 DID NOT INTERRUPT 
sWAITED ON BIT DID NOT OCCUR 
DH1 sec 
swAT PC 
28IT WAITED 
sREG ADDRESS 
2REG CONTENTS 
sRHCS1 CONTENTS 
OT1 sGERRPC,WAITPC,WAITBT,WAITRE,S$8DDAT.CS1 
OF! 9000¢0,9,0,9 


s ITEM2 
EM2 s INTERRUPT ENABLE BIT DOWN RUT 
sWAITED ON BIT PID NOT OCCUR 
DH1 PC 
sWAT pC 
sBIT WAITED 
sREG ADDRESS 
sREG CONTENTS 
sRHCS1 CONTENTS 
OT1 sSERRPC,WAITPC, WAITAT, WAITRE, SBDDAT,CS1 
OF 1 20,0,9,0,0,0 


sITEM3 

EM3 sRPO4 DID NOT INTERRUPT WHEN 
sWAITED ON BIT DID SET 

DH1 PC 
sWAT PC 
sBIT WAITED 
sREG ADDRESS 
sRHCS1 CONTENTS 

DT1 sSERRPC,WAITPC, WAITBT, WAITRE,SBDDAT,CS1 
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314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
378 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 


901246 


091250 


001252 


901254 


AA1256 


001260 


991262 


#01264 
001266 


001270 


001272 


001274 
001276 
031390 
001302 
901304 
001306 
001310 
001312 


091314 
001316 


ERROR POINTER TARLE 


055170 


#36651 


053026 


054724 


055176 


036760 


053151 


054742 
055204 


037032 


053250 


054754 
055210 
837120 
053327 
054764 
055213 
937202 
053357 


054772 
055215 
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sITEM4 


2: IT TEMS 


s ITEM6 


s ITEM? 


s ITEM 


OF 1 


EM4 


DH4 
DT4 
OF4 
EMSs 


DTS 
OFS 
EM6 


DT6 
OF6 
Ev? 
DH? 
OT7 
DF? 
EMia 


gWAITFD ON RIT DID SET BUT 
sTIME IS IN ERROR 

sTI¥E TS GIVEN IW 1A MICRO SEC. 
s (DECIMAL) 

PC 

2WAT PC 

sBIT WAITED 

sREG ADDRESS 

sTIME IN 10 MSEC 

2SERRPC, WAITPC, WAITBT, WAITRE, SBDDAT, WAITIM 
396A ,85%,Ge1 


sRHAS DOES NOT CLEAR BY 
MOVING IN ALL ONES 

PC 

sREG, ADDR. 

3GO0OD DATA 

RECEIVED DATA 
sSERRPC, REGADR, SGDDAT, SBDDAT 
$009,008 


?LOADING RHER1 FOR ALL 
UNITS DIO NOT SET ANY BITS 
gIN RHAS@NO UNITS PRESENT 
3PC 

sREG ADDR 

sRECEIVED DATA 

sSERRPC, REGADR, SBDDAT 
30,0.0 


sSPECIFIED REGISTER NOWEXISTANT 
2SO0 ABORT PROGRAM 

2PC 

sADDR, OF REG, 

sSERRPC, TEMP! 

390 


sSTOPFD DRIVE HAS MOL BIT 
sIN RHDS1 @ 1 

eC 

sTEST NO 

FAILING REG ADDR 
sCONTENTS OF RHCS! 
sCONTENTS OF RHCS2 
sCONTENTS OF RHDS1i 
sCONTENTS OF RHERI 
2SERRPC,STSTNM, SBDADR,CS1,CS2,0S81-ER1 
90 0000.0.0,0.9 





MAINDEC $11 -DERPVeR MACY11 27(732) 
DERPVB.PI1 


3708 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
4a4 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
419 
419 
420 
421 
422 
423 
424 
425 


eee Os 


001320 


001322 


001324 
001326 


001330 


001332 


001334 
001336 


091340 


001342 


001344 
001346 


001352 


001354 
001356 


ERROR POINTER TABLE 


037251 


053357 


054772 
055215 


037356 


053357 


054772 
955215 


037464 


053357 


054772 
055215 


037603 


053151 


054742 
055204 


037655 


1®@FER°76 162277 PAGF 6 


sITEMi1 


sITEMI2 


sITEM13 


sITEM14 


sITEMiS 
L 


EM1i1 


OT10 
OF1@ 


DT10 
OF10 


EM13 


sWITH SPINDLE POWERED DOWN 
sRHCS2 SHOULD HAVE ONLY 
sUNIT NUMBER AND IR HIGH 
sPC 

sTEST NO 

sFAILING REG, ADR 
sCONTENTS OF RHCS! 
sCONTENTS OF RHCS2 
sCONTENTS OF PHOS! 
sCONTENTS OF RHEP! 
sSERRPC, STSTNY, SBOADR,CS1,CS2,081,ER1 
99 ¢A,0eA,0,0,0 


sAFTER A POWER UWP WITH 

7NO PACK ACKNOWLEDGE COMMAND 
sRHDS1 SHOULD HAVE MOLs1, VV8@ 
PC 

TEST NO 

FAILING REGISTER ADDR, 
sCONTENTS OF RHCS1 

sCONTENTS OF RHCS2 

sCONTETNS OF RHDS1 

sCONTENTS OF RHERI 

2 SERRPC,STSTNM, SBDADR,CS1,CS2,0S81,ER1 
71050,0,0,0,0,0 


gAFTER A POWER UP WITHOUT 
sANY INIT RHCS{ SHOULD 
sHAVE GOs@, DVAsi, RDYs1i 
sIEs@, DISREGARD 

sALL OTHER BITS 

3PC 

#+TEST NO 

sPAILING REGISTER ADDR, 
sCONTENTS OF RHCS! 
sCONTENTS OF RHCS2 
sCONTENTS OF RHDSi 
sCONTENTS OF RHERI 
sSERRPC, STSTNM, SBDANR,CS1,CS2,DS1,ER1 
Tr a 


sAFTER POWER UP RHCC 

sSHOULD BEs@ 

PC 

sREG, ADOR, 

:GOOD DATA 

sRECEIVED DATA 
sSERRPC, REGADR, SGDDAT, SBDDAT 
3020,0.0 


sPACK ACKNOWLEDGE CAUSED 


MAINDFC-11-DERPV<-B MACY11 27(732) 
DFERPVB,.P11 


426 
427 
426 
429 
430 
$31 
43? 
433 
434 
435 
436 
437 
438 
439 
449 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
$51 
452 
453 
4s4 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 


001 364 


401366 


901379 


001372 


091374 


001376 


001400 


001402 


001404 


601406 


991410 


001412 


001414 
001416 


001420 


001422 
001424 


ERROR POINTER TABLE 


053151 


054742 
055204 


054742 
055204 


040144 


054742 
055204 


940301 


053151 


054742 
055204 


040450 


053151 
054742 


1A=eFER©76 «416322 PAGE 9 


DHS 


OTS 
DFS 


s I TEMI6 
FM16 


OTS 
OFS 


sITEMi7 
EMi7 


OTS 
OFS 


2s ITEM20 
EM20 


DHS 


DTS 
OFS 


sITEM 21 
EM21 


DHS 
OTS 





SEQ 0037 


AN ERROR 

37600D DATA IS BEFORE COMMAND 
sRECEIVED DATA IS AFTER COMMAND 
PC 

REG. ADOR, 

3GOOD DATA 

sRECEIVED DATA 
sSERRPC, REGAOR, SGODAT, SBC AT 
39,0,A8 


sGIVING A NOeOP COMMAND CAUSED 
9AN ERROR 

2G00D DATA GIVES REGISTER 
sCONTENTS BEFORE COMMAND 
sPECEIVED DATA GIVES REGISTER 
sCONTENTS AFTER COMMAND 

sPC 

sREG, ADDR. 

GOOD DATA 

#RECEIVED DATA 

2 SERRPC, REGADR, 6GDDAT, S8DDAT 
19,0,0.0 


sORIVE CLEAR COMMAND 

sCAUSED AN ERROR 

3GOOD DATA GIVES WHAT SHOULD 
sBE THERE 

sRECEIVED DATA GIVES WHAT WAS 
sTHERE AFTER COMMAND 

sPC 

sREG, ADDR, 

3GOOD DATA 

sRECEIVED DATA 
sSERRPC, REGADP, SGDDAT, SBDDAT 
26e9,0,0 


sREAD-IN COMMAND GAVE AN ERROR 
:GOOD DATA HAS WHAT SHOULD BE THERE 
RECEIVED DATA HAS WHAT WAS 

sAFTER COMMAND 

sPC 

2REG. ADDR, 

2GOOD DATA 

sRECEIVFD DATA 
sSERRPC, REGADR, SGDDAT, SBDDAT 
$0,9,0.0 


sRHCS1 CONTENTS DURING 
sCOMMAND WAS IN ERROR 





MATNDEC-11-DERPV=-B MACY11 27732) 
DEPPVB.P11 


462 
483 
464 
48s 
486 
4n7 
488 
469 
490 
491 
492 
493 
494 
495 
496 


001426 


001430 
001432 


001434 
001436 


001440 


001442 


001444 
901446 


901450 


001452 
601454 
001456 


001460 


001462 
001464 
001466 


001470 
001472 


001474 
001476 


00159006 


EPROR POINTER TABLE 
055204 


054742 
055204 


040576 


954742 
055204 


040745 


053151 
054742 
055204 


041110 


053151 
054742 
055204 


041272 
053536 


055012 
055224 


041362 
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DFS 


s1TEM 22 
E22 


DHS 
OTS 
DFS 


sITEM 23 
EM?3 


DHS 
OTS 
DFS 


sITEM 24 
EM24 


DHS 
OTS 
DFS 


sITEM 25 
EM25 


DHS 
DTS 
DFS 


sITEM 26 
EM26 
DH26 


DT26 
DF26 


s ITEM 27 
E427 


sRHDS1 CONTENTS DURING 
sCOMM ANS WAS IN ERROR 


sUNLOAD COMMAND GAVE AN ERROR 
sGOOD DATA GIVES WHAT SHOULD 

sBE THERE 

sRECEIVED DATA GIVES WHAT WAS 
sTHERE AFTER COMMAND 


sOF FSET COMMAND CAUSED AN EPROR 
3GOOD DATA IS WHAT SHOULD BE THERE 
sRECEIVED DATA GIVES WHAT WAS THERE 
sAFTER AN OFFSET COMMAND 


sRETURN TO CENTER LINE COMMAND 
sCAUSED AN ERROR 

:GO0D DATA GIVES WHAT SHOULD BE 
3 THERE 

sRECEIVED DATA GIVES WHAT WAS 
sTHERE AFTER COMMAND 


3500 OFFSETS CAUSED AN ERROR 
PC 

sCONT, OF RHCSi 

sCONT, OF RHCS2 

sCONT, OF RHDSI 

sCONT, OF RHERI 

sCONT,. OF RHER2 

sCONT, OF RHER3 
sSERRPC,CS1,CS2,D081,ER1,ER2,ER3 
39.0,0,0,0,9,0 


:WRITE HEADER AND DATA 

sCAUSED IMPROPER REGISTER CHANGE 
sGOOD DATA GIVES WHAT 

sSHOULD BE THERE 


SEQ 0038 


MAINDEC #11 -DERPV<B 
DFRPVE P11 


538 
539 
540 
$41 
542 
543 
544 
545 
546 
547 
548 
$49 
550 
551 
$52 
553 
554 
555 
556 
5$7 
558 
559 
56e 
561 
562 
563 
Sé4 
565 
566 
507 
568 
569 
570 
571 
572 
573 
574 
575 
576 
577 
578 
$79 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
$93 


001502 
091504 
001506 


071510 
001512 


901514 
901516 


901522 
001524 
001526 


001532 
A01534 
901536 


001540 


901542 
001544 
001546 


001550 
001552 
001554 
001556 


MACYS1 27(732) 


FRROR POINTER TABLE 


053151 
054742 
055204 


041600 
653715 


$5032 
055233 


041660 


053151 
054742 
055204 


042075 


053715 
055032 
055233 


053151 
054742 
055204 


042404 
053715 
055032 
055233 


042430 


1@-FEBo76 16222 PAGE 11 


DHS 
oTs 
OFS 


sITEM 30 
E430 


DT30 
DF30 


sITEM 31 
E431 


DHS 
OTS 
DFS 


sITEM 32 
EM32 


DH30 
OT30 
DF 30 


sITemM 33 
—M33 


DHS 
OTS 
DFS 


sITEM 34 
EM34 
DH30 
OT30 
OF30 


sITEM 3% 
EM35 


sRECEIVED DATA GIVES 4HAT 
sWAS THERE AFTEP COMMAND 


WRITE HFADER AND DATA 
sCHANGED WRITE FROM BUFFER 
3PC 

sWORD NO 

3GOOD DATA 

sBAD DATA 
sSERRPC, ERRORD, SGDDAT, SBODAT 
19,0,0,0 


sREAD HEADER AND DATA CAUSED 
sIMPROPER REGISTER CHANGE 
3GOOD DATA HAS WHAT SHOULD 
3B8E THERE 

sRECEIVED DATA GIVES WHAT 
sWAS THERE AFTER COMMAND 


sWRITE HEADER AND DATA FOLLOWED 
sBY A READ HEADER AND DATA 
sCAUSED A READ/WRITE ERROR 


sREAD DATA CAUSED IMPROPER REGISTER 

3s CHANGE 

sGOOD DATA GIVES WHAT SHOULD BE THERE 
sRECEIVED DATA GIVES WHAT WAS THERE AFTER 
s COMMAND 


sREAD DATA INCORRECT 


sWRITE DATA COMMAND CAUSED 

sIMPROPER REGISTER CHANGE 

sGOOD DATA GIVES WHAT SHOULD BE THERE 
sRECEIVED DATA GIVES REGISTER 


rrr NT aL LT 


F 


MAINDEC #11 -DERPV9B 


DFPPVB,Pi1 


594 
595 
596 
597 
59e 
599 
4aA0 
6e 1 
602 
673 
604 
605 
616 
67 
608 
609 
41a 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 


971562 
001564 
901566 


#91570 
001572 


@A1574 
01576 


AA1600 


001602 
PA16A4 
001676 


901619 


AA1612 
071614 
901616 


071620 


#91622 
A91624 
991626 


MACY11 270732) 
ERROK POINTFR TABLE 


453151 
054742 
55204 


042646 
453715 


455032 
455233 


042723 


053151, 
54742 
055204 


#53151 
054742 
955204 


043347 


053151 
054742 
955204 


043630 


1A8eFERO76 
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H5 


DTS 
DFS 


s ITEM 36 
E 


M36 


DH3A 
DT3¢ 
NF 3A 


sITEM 37 


EM37 


DHS 
OTS 
DFS 


sTTEM 40 
F 


M4a 


DHS 
DTS 
DFS 


sITEM 41 
FE 


D 
D 
D 


sITEM 42 
E 


“41 


HS 
TS 
FS 


M42 


sCONTENTS AFTFR WRITE DNATA 


sWRITF DATA COMMAND CHANGED 
:WRITE FROM BUFFER 


sSEEK COMMAND CAUSED AN 

s ERROR 

:GOOD DATA GIVES WHAT SHOULD 
sRE THERE 

sRECEIVED DATA GIVES WHAT 
sWAS THERE AFTER SEEK COMMAND 
$ 

3 

3 


sWRITE CHECK CAUSED AN 
sIMPROPER REGISTER CHANGE 
:GOOD DATA GIVES WHAT SHOULD 
:BE THERE 

sRECEIVED DATA GIVES WHAT WAS 
sTHERE AFTER COMMAND 


sLOCKING OUT WRITES BY WRITE 
LOCK BUTTON CAUSED IMPROPER 
sREGISTER CHANGE 

3GOOD DATA GIVES WHAT SHOULD 
2BE THERE 

sRECEIVED DATA GIVES WHAT 
WAS THERE AFTER WRITES 
sWERE LOCKED OUT BY 

sBUTTON 


sATTEMPTING TO WRITE WITH WRITE 
sLOCKED OUT CAUSED IMPROPER 
sREGISTER CHANGE 

3GOOD DATA GIVES WHAT SHOULD 
sRE THERE 

sRECETVED DATA GIVES WHAT WAS 
sTHERE AFTER ATTEMPT 


SEQ 00406 


—_———— 


MAINDEC©11-DERPVeB 


DEPPVB,Pi1 


650 001632 
651 601634 
652 001636 
653 
654 
655 001640 
656 
657 
659 
659 
660 
661 
662 
663 601642 
664 001644 
665 001646 
666 
667 
668 001650 
669 
670 
671 
672 
673 
474 
675 001652 
676 001654 
677 #01656 
678 
679 
68° A01660 
681 
682 
683 
684 
685 
686 
667 
688 401662 
689 001664 
690 801666 
691 
692 
693 601670 
694 
695 
696 
697 001672 
698 401674 
699 001676 
700 
701 
702 001700 
703 
704 
705 


Mm rr tr 


MACY11 27(732) 
ERROR POINTER TABLE 


053151 


054742 
$5204 


044106 


053715 
955032 
955233 


044444 


053151 
054742 
055204 


044736 


053151 
054742 
035204 


045232 


053715 
055032 
055233 


045345 


186FER=76 16322 PAGE 13 


DHS 
DTS 
DFS 


s ITEM 43 
FM43 


DH30 
DT30a 
DF30 


sITEM 44 
FM44 


DHS 
OTS 
OFS 


sITEM 45 
EM45 


sITEM 46 
EM46 


DH30 
DT30 
DF3A 


sITEM 47 
—M47 


SEQ 0041 


sWRITING WITH WRITE LOCKED 
sOUT CHANGED DISK DATA 

sGOOPD DATA GIVES WHAT WAS 

sON DISK BEFORE WRITE WITH 
?WRITE LOCK WAS ATTEMPTED 
sRECEIVED DATA GIVES WHAT WAS 
sREAD BACK AFTER WRITE WITH 
sWRITE LOCK WAS ATTEMPTED 


sENABLING WRITES BY WRITE LOCK 
sBUTTON CAUSED AN ERROR 

#GOOD DATA GIVES WHAT SHOULD 
sBE THERE 

sRECEIVED DATA GIVES WHAT WAS 
sTHERE AFTER WRITE LOCK 
sBUTTON ENABLED WRITES 

] 

3 

? 


sTRANSFERRING ON LAST BLOCK IE. CYLINDER 
341%, SECTOR 21, TRACK 18 

sCAUSED IMPROPER REGISTER 

sCHANGE 

3GOOD DATA GIVES WHAT SHOULD 

sBE THERE 

sRECEIVED DATA GIVES WHAT WAS 

sTHERE AFTER TRANSFER 


sDATA READ FROM LAST 
sBLOCK TE, CYLINDER 419 
sSECTOR 21, TRACK 18 IS IN 
s ERROP 


sTRANSFERRING FROM NONEXISTANT 
sSECTOR CAUSED IMPROPER 
sREGISTER CHANGE 

#GOOD DATA GIVES WHAT SHOULD 


MAINDEC-11-DERPV-B 


DFRPVA,Pi! 


7106 
707 
708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
7127 
728 
729 
730 
731 
732 
733 
734 
735 
7136 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
748 
749 
750 
751 
752 
753 
754 
785 
756 
757 
758 
759 
760 
761 


001702 
001704 
001706 


on1710 


001712 
901714 
001716 


901720 


001722 


001724 
001726 


001730 


001732 
001734 
001736 


001740 
001742 


001744 
001746 


MACY11 27(732) 
ERROR POINTER TABLE 


053151 
054742 
955204 


045627 


453715 
455032 
055233 


046046 


054007 


055044 
055237 


046313 


053151 
054742 
055204 


046564 
053715 


055032 
055233 


18°FER°76 16:27 


DHS 
OTS 
OFS 


sTTEM 5A 
EMSe@ 


DH30 
OT30 
DF3¢0 


sITEMW $1 
EMS1 


DTS! 
DFS! 


s ITEM $2 
EMS2 


OHS 
OTS 
OFS 


sITEM 53 
EMs3 


DH3O 
DT30 
DF30 


sTTEM 54 


sBE THERE 

sRECEIVED DATA GIVES WHAT WAS 
sTHERE AFTER ATTEMPTED 

s TRANSFFR 


s TRANSFERRING FROM NONEXTISTANT 
sSECTOR CAUSED DATA ERROR 
:GO0D DATA GIVES WHAT 

sSHOULD BE IN BUFFER 

sRECFIVED DATA GIVES WHAT WAS 
:IN BUFFER AFTER TRANSFER 


sGIVING ILLEGAL FUNCTION CAUSED 
s IMPROPER REGISTER CHANGE 

3GOOD PATA GIVES WHAT SHOULD BE 
3s THERE 

sRECEIVE. DATA GIVES REGISTER 
sCONTFNTS AFTER ILLEGAL FUNCTION 
sPC 

sREG, ADOR, 

#GO000 DATA 

sRECEIVED DATA 

sILLEGAL FUNCTION 

3s SERRPC, REGAOR, SGDDAT, SBDDAT, ILLEGL 
34,0,0,0,0 


sWRITE DATA ON WNONEXISTANT 
sSECTOR CAUSED IMPROPER 
sREGISTER CHANGE 

sGOOD DATA GIVES WHAT SHOULD 
sBE THERE 

sRECEIVED DATA GIVES WHAT 
:WAS THERE AFTER ATTEMPTED 
sWRITE DATA 


sREAD HEADER AND DATA AFTER 
sA SFARCH CAUSED AN EPROR 


eee eee) ee 
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DFRPVB.P11 ERROR POINTER TABLE 
762 @01750 #46652 EMS4 sATTE“PTED OPERATION “STH 
763 : sINVALID ADDRESS CAUSED 
764 s IMPROPER RFGISTER CHANGE 
765 :GOOD DATA GIVES WHAT SHOULD 
766 3BE THEPE 
767 sRECEIVED DATA GIVES WHAT WAS 
768 sTHERE AFTER OPERATION 
769 01752 053151 DHS 
770 0801754 54742 OTS 
771 AA1756 855204 DFS 
772 
773 sITEM 55 
774 ©1760 47117 EMS5 sWRITING/READING WITH EXPECTED 
775 sADDRESS OVERFLOW ERROR CAUSED 
776 sIMPROPER PEGISTER CHANGE 
777 3GOOD DATA GIVES WHAT SHOULD 
778 sS8€ THERE 
779 sRECEIVED DATA GIVES WHAT 
780 sWAS THFEPE AFTER OPERATION 
781 O#1762 53151 DHS 
782 001764 54742 OTS 
783 001766 055204 OFS 
784 
785 s ITEM 56 
786 001770 047405 EMS6 sDATA READ WITH AN EXPECTED 
787 sADORESS OVERFLOW ERROR IS 
788 s TNCORRECT 
789 sWORD NO 1 TO 268 SHOULD 
790 sBE READ 
791 sWORD NOS 261 TO 266 SHOULD 
792 sNOT CHANGE DUE TO READ 
793 901772 053715 DH3A 
794 601774 0855032 DT30 
795 801776 655233 DF30 
7196 
7197 sITEM 57 
798 @02000 047615 EMS7 sATTEMPTING DATA COMMAND 
799 sWITH WRONG FORMAT BIT CAUSED 
800 s IMPROPER REGISTER CHANGE 
801 3GO0D DATA GIVES WHAT SHOULD BE 
892 3 THERE 
803 sRECEIVED DATA GIVES WHAT WAS 
604 sTHERE AFTER ATTEMPTED DATA 
805 3s TRANSFER 
806 992902 053151 DHS 
807 802004 454742 DTS 
808 872706 055204 DFS 
8a9 
819 sITEM 60 . 
811 082010 050107 EM60 sATTEMPTING TO MODIFY PEGISTER 
812 sDOURING AN OPERATION CAUSED 
813 s IMPROPER REGISTER CHANGE 
614 :GOOD DATA GIVES WHAT SHOULD 
R15 sBE THERE 
816 : sRECEIVED DATA GIVES WHAT WAS 


817 sTHERE AFTER OPERATION 





MAINDEC $11 -DERPV-B 


DERPVA PII 


818 
819 
820 
821 
822 
823 
824 
625 
826 
827 
828 
829 
830 
831 
832 
833 
A34 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
A4A 
949 
a5e 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
867 
86A 
869 
870 
871 
672 
873 


AA2012 


M92014 
9392016 


992920 
002022 


092024 
482026 


092030 
092032 


002034 
002036 


002040 


002042 
02944 
402046 


002950 


892982 
902954 
092056 


002060 
992462 


002964 
092066 


MACY!1 27(732) 
ERROR POINTER TABLE 


054126 


055960 
055244 


050516 
054243 


@$5074 
055251 


050516 
054326 


055104 
955254 


050602 


053151 
054742 
055204 


50655 


053151 
054742 
455204 


051074 
054401 


655114 
955257 
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DH60 


nT6e 
DF60 


s ITEM 61 
E61 
DH61 


OT6} 
DF61 


sITEM 62 
E“61 
DH62 


DT62 
DF62 


sITEM 63 
E63 


DHS 
OTS 
DFS 


sITEM 64 
EM64 


DHS 
DTS 
DFS 


s ITEM6S 


EM65 
DH65 


DT65 
OF65 


WAS COMPLETE 

sPC 

sPEG. ADDP, 

sGOOD DATA 

sRECEIVED DATA 

sMODFING REGISTER 

#SERRPC, REGADR, SGDDAT, SBDDAT, SBDADP 
20,70,0,9,8 


:DEVICE NOT AVATBLE RBEFOR COMMAND WAS TO BE GIVEN 


sRHDS1 
sSERRPC,PCJSR, SBDADP 
14,0,0 


sDEVICE NOT AVAIPLE BEFOR COMMAND WAS TO BE GIVEN 
PC 

3PC OF JSR 

sRHCS1 WAS 

sSEPRPC,PCJSR, SBDADR 

20,0,0 


sRHDS1 CONTFNTS DURING 
sCOMMAND WAS IN ERROR 


sRECALIBRATE COMMAND CAUSED 
sIMPROPER REGISTER CHANGE, 

:GOOD DATA GIVES WHAT SHOULD BE 

s THERE, 

sPECEIVED DATA GIVES WHAT WAS THERE 
sAFTER COMMAND 


s INTERRUPT FAILING 

2PC 

3:TEST NO 

sCONTENTS OF RHCS1 
sCONTENTS OF RHAS 
sCONTENTS OF RHDS!1 
sSERRPC,TSTNM,CS1,AS-081 
39,0,0,0,0 


SEQ 0044 


MBINDEC*11°DERPV-B MACY11 27(732) 
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874 
e75 
876 
877 
a7a 
879 
880 
R81 
BR2 
#83 
AAG 
ARS 
R86 
887 
688 
889 
890 
891 
892 
893 
894 
R95 
R96 
897 
898 
899 
900 
901 
902 
903 
9a4 
905 
996 
907 
906 
909 
916 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
974 
925 
926 
927 
928 
929 


AA20T7A 


AF2072 


a02074 
AA2076 


002190 


@92102 
092104 
092106 


002112 
002114 
002116 


002120 


002122 


002124 
092126 


ERROR POINTEP TABLE 


51116 


954522 


955130 
955264 


051327 


$3715 
855032 
055233 


053715 
055032 
055233 


953151 


054742 
055204 
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s ITEM66 


s ITEM67 


sITEM70 


sITEM 71 


sITEM72 


EM66 


DK66 


OT66 
DF66 


E“67 


DH30 
DT30 
DF 30 


EM7@ 


DH30 
DT30 
OF30 


EM71 


OTS 
DFS 


sHEADER AND NATA COMMAND 

sFOR HEAD SELFCTION TEST 
sCAUSED AN ERROR 

sRHDST GIVES WHAT TRACK 

sWAS BEING WRITTEN ON CYLINDER 9 
sSECTOR @ 

:PC 

:RHDST 

sRHFRI 

sRHFR? 

sRHER3 

sRHCS1 

sRHCS2 
sSERRPC,DST,ER{,ER2,EP3,CS1,CS2 
390 eAe AeA, AD 


sREAD HEADER AND DATA ERROR 
:IN HEAD SELECTION TEST 
sFIPST FOUR WORDS GIVE HEADER 
sNEXT WORDS ARE DATA 

GOOD DATA WORDS GIVE 

sTHE TRACK NUMBER IN 

BITS 45526.7,8 


sREAD HEADER AND DATA ERROR 
sIN OTFFERENCE LINE TEST 
2WORD NOS, 14 GIVE 

sHEADER 

sWORD NOS, $°260 GIVE DATA 
sWHICH IS THE CYLINDER 

s ADDRESS 


sFORCING OPI CAUSED IMPROPER REGISTER 
3 CHANGE 

3GOOD DATA GIVES WHAT SHOULD 
3sBE THERE 

sRECEIVED DATA GIVES WHAT WAS 
sTHERE AFTER 3 INDEX PULSFS 
sPC 

sREG, ADDR, 

3GO0D DATA 

sRECEIVED DATA : 
sSERRPC, REGADR, SGODAT, SBDDAT 
39,0,0.0 


SEQ 9045 


MAINDEC*11°DERPV-R MACY11 27(732) 
DERPVAR,P11 


93) 
931 
932 
933 
934 
935 
936 
937 
938 
939 
94a 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 


002134 
002136 


002140 


002142 
02144 
002146 


#92150 
092152 


002154 
002156 


ERROR POINTFR TABLE 


952752 


054610 


055146 
055273 


0546190 
055146 
055273 


052513 
054610 


055146 
055273 
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sITEM73 


sITEM74 


EM72 


DH72 


DT72 
DF72 


EM73 


DH72 
DT72 
DF72 


EM74 
DH72 


DT72 
DF72 


sTHFPE WAS AN ERROR 
sAFTEP A WRITF HEADER 
sAND DATA COMMAND 


PC 

sRHCS1 

2RHCS2 

sPHDS1 

sPHDST 

sRHCA 

sRHERI 

sRHWC 
sSERRPC,CS1,CS2,081,DST,CA,ER1,WC 
9050 560,0,0,49, AD 


sREADING OVER 3 INDEX 
+PULSES CAUSED SC 


sREANDING OVER 3 INDEX 
sPULSES CAUSED OPI 


SEQ 9046 


MAINDEC11-DERPV-R MACY11 27(732) 
DERPVB.P11 ERROR POINTER TABLE. 

963 

964 

965 

966 

967 

968 

969 0802160 #70254 
97a 

971 

id, Se 

973 

974 

975 

976 

977 

978 

979 

980 

981 

982 

983 000001 
984 800002 
985 900004 
986 A80010 
9Rn7 800620 
98e 003040 
989 000100 
990 000200 
991 009400 
992 001000 
993 042000 
994 604000 
995 016000 
996 020000 
997 840000 
998 100000 
999 

1900 

1001 

1¢02 

1903 

1904 

1005 

1046 

1907 

1908 

19069 

1910 

1011 

1912 000001 
1413 000100 
1014 960200 
1015 600400 
1016 081000 
1017 ABA 
1018 004000 
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PESSSOSOSE HEH HHOSESOSOEOSOSSSSSOSOSHOTSOSCHEHSSESHLOSOSSCSSOTEOES 
sRH11 REGISTERS 


RPVEC: 254 +RPO4 VECTOP ADDRESS 
FESCSSSCHSSSS HESS ESTES ESSSOSH SES SO OSOSSSSSHSOSEHSESESOOSSOSEOOOTES 
sWORD COUNT REGISTER (RHWC) 

sEACH BIT IS CALLED BY BIT NUMBER 


sBUS ADDRESS REGISTER (RHBA) 
sEACH BIT IS CALLFD BY BIT NUMBER 


sCONTROL AND STATUS REGISTEP 2 (RHCS2) 


USis i sUNIT SELECT (BIT 60) 

US2e 2 sUNIT SELECT (BIT #1) 

US4s 4 sUNIT SELECT (BIT @2) 

BAIs 10 sBUS ADDRESS INCREMENT INHIBIT (BIT #3) 
UNTBs 20 sUNTBUS B DC LO (BIT #4) 

CLRs 4a sCLEAR (BIT #5) 

IRs - 100 sINPUT READY (BIT #6) 

ORs 200 sOUTPUT READY (BIT 87) 

MPEs 490 sMASS BUS PARITY ERROR (BIT #68) 
MXFs 1900 +MISSFD TRANSFER ERROR (BIT 69) 
PGEs 2000 sPROGRAM ERROP (BIT #14) 

NEMs 4000 sNON EXISTANT MEMORY (BIT 811) 
WEDs 10000 sNOW EXISTANT DRIVE (BIT #12) 
UPEs 29000 sUNIBUS PARTTY ERROR (AIT 013) 
WCEs 40000 sWRITE CHECK ERROR (BIT 614) 
OLTs 109000 sDATA LATE (BIT #15) 


sDATA BUFFER REGISTER (RHDB) 
sFACH BIT IS CALLED BY BIT NUMBER 


sRPO4 REGISTERS 
FESSCSSSOSSCHSSSHSET SHOES HOHSOSSS SHOPS OSOSSTSHSOSESOSSSSEESESOOS 


sCONTROL AND STATUS 1 REGISTER, (#00) 


GOs 1 3GO (RIT #0) 

IEs 190 sINTEPRUPT ENABLE (BIT 86) 

RDYs 200 sPEADY (BIT #7) 

Al6s 400 sHIGH ORDER UNIBUS BITS (BIT #86) 
Ail7s 1900 sHIGH ORDER UNIBUS BITS (BIT #9) 
PSELs a sPORT SELECT (BIT #10) 

DVAs 4000 sDEVICE AVAILABLE (BIT #11) 


SEQ #047 


MAINDEC $11 -DERPV<-B MACY11 27(732) 
DERPVB P11 ERROR POINTER TARLE 

1°19 #20000 
1920 aavean 
1021 109000 
1922 

10273 

14924 

1925 O70001 
1026 00002 
1027 090004 
1928 000012 
1929 890920 
1030 800040 
1031 0001800 
1432 900200 
1933 000400 
1034 001000 
1035 892900 
1036 494000 
1937 910000 
1438 020000 
1939 440000 
1040 100008 
1041 

1042 

1943 @00001 
1944 040002 
1945 OP OA04 
1446 000010 
1047 900020 
1948 000048 
1049 0001090 
195¢a 400200 
1951 090400 
1052 901000 
1953 902000 
1454 044000 
1955 918000 
1956 020000 
1057 040000 
1958 106900 
1059 

1360 

1961 

19062 800901 
1963 300002 
1064 909004 
1965 009010 
1966 800020 
1067 900040 
1968 001000 
1969 

1070 

1¢71 

1072 000001 
1073 900002 
1974 080004 


18eFEB<76 16222 PAGE 20 SEQ #0486 
“CPEs 29000 sMASSBUSS PARITY ERROR (BIT 813) 

TPEs 4000 sTRANSFFR ERROR (BIT #14) 

SCs 19a¢aAa sSPFCIAL CONDITION (BIT #15) 


sSTATUS REGISTER (PHNS1) (801) 


DFFSs q sDRIVE FORWARD S*/SEC, (PIT #0) 
DFF2@= 2 sDRIVE FORWARD 20"/SEC. (BIT #1) 
DIGRs 4 sDRIVE TO INNER GAVRD BAND (BIT 82) 
GPVs 1a 3GO REVERSE (BIT #3) 

DL642 2¢ sDIFFERENCE LESS THAN 64 (BIT #4) 
DEiz 40 sOIFFERENCE EQUALS 1 (BIT 85) 

VVs 109 sVOLUME VALID (BIT 86) 

DRYs 290 sDRIVE READY (BIT 67) 

DPRe 4a sORIVE PRESENT (BIT 68) 

PROGs 1900 sPROGRAMABLE (BIT #9) 

LBTs 2000 sLAST SECTOR TRANSFERRED (BIT #10) 
WRLs 4000 sWRITE LOCK (BIT #11) 

MOLs 19000 sMEDIUM ONLINE (BIT 812) 

PIps 20000 sPOSITIONING OPERATION IN PROGRESS (BIT 813) 
ERRs 49000 sCOMPOSIT ERPOR, (BIT 814) 

ATAs 199000 sATTENTION ACTIVE (BIT #15) 

SERROR REGISTER #41 (RHERI) (802) 

ILFs 1 sILLEGAL FUNCTION (BIT 80) 

ILRs 2 sILLEGAL REGISTER (BIT 61) 

RMRe 4 sREGISTER MODIFICATION REFUSED (BIT #2) 
PAPs 10 sPARITY ERROR (BIT #3) 

FERs 20 sFORMAT ERROR (BIT #4) 

wCFs 4a sWRITE CLOCK FAIL (BIT #5) 

ECHs 190 sECC HARD. ERROR (BIT #6) 

HCEs 20a sHEADER COMPARE ERROR (BIT #7) 
HCRCe 490 sHEADER CRC ERROR (BIT 06) 

AOEs 1800 sADDRESS OVERFLOW ERROR (BIT #9) 
IAEs 2000 sINVALID ADDRESS ERROR (BIT 010) 
WLEs 4900 sWRITE LOCK ERROR (BIT #011) 

OTEs 100e¢¢a sDRIVE TIMING ERROR (BIT 812) 

OPIs 20000 sOPERATION INCOMPLETE (BIT 613) 
UNSs 40000 sORIVE UNSAFE (BIT 614) 

OCKs 19090000 sDATA CHECK ERROR (BIT 15) 


sMAINTAINABILITY REGISTER (RHMR) (803) 


DMDs & sDIAGINOSTIC MODE (BIT 80) 

MCLKs 2 sMAINTAINABILITY CLOCK (BIT 61) 

MINXs 4 sMAINTAINABILITY INDEX (BIT #2) 

MSTCKs 190 sMAINTAINABILITY SECTOR CLOCK (BIT #3) 
MRDs 20 sMAINTAINABILITY READ (SIT 84) 

MWRs 4a sAINTAINABILITY WRITE (BIT #5) 

DTSYs 1900 sMAINTAINABILITY SYNC DETECTED (BIT #9) 


sATTENTION SUMMARY PSEUDO*REGISTER (RHAS) (804) 


ATOs 1 sDEVICE @ (BIT #0) 
ATi=z 2 sDEVICE 1 (BIT #1) 
AT2s 4 sDEVICE 2 (BIT #2) 


MAINDEC©11-DERPV-B MACY11 27(732) 
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1075 oa001a 
1°76 040020 
1077 99en4a 
1978 000100 
1079 908200 
1980 

101 

1082 

1063 

1084 

1985 

1086 

1967 900001 
1088 000002 
1989 000004 
1099 000010 
1991 000020 
1992 AA0040 
1993 000100 
1094 490200 
1495 000400 
1#96 901000 
1097 402000 
1998 004000 
1999 010000 
1190 20000 
1101 640000 
1102 100000 
1103 

1104 

1105 

1106 000001 
1107 800282 
1108 000004 
1109 000010 
1110 800020 
1111 900040 
1112 000100 
1113 000209 
11914 096400 
1115 601000 
1116 002000 
1117 904000 
1118 016000 
1119 820900 
1120 100000 
1121 

1122 

1123 

1124 000001 
1125 490002 
1126 000004 
1127 990010 
1128 690020 
1129 800040 


1130 


1feFEBe 


AT3= 
AT4s 
ATS= 
AT6s 
AT7= 
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10 
29 
49 
1406 
20¢ 


:DEVICF 3 CRIT #3) 
DEVICE 4 (RIT 64) 
sDEVICE S$ (RIT #5) 
sDEVICE 6 (RIT #86) 
sDEVICE 7 (BIT #7) 


sDESIRFD SECTOR/TRACK ADDRESS PEGISTEP (RHDST) (81) 
sEACH BIT IS CALLED BY RIT NUMRER 
sDRIVE TYPE REGISTER (RHDT) (806) 
sEACH RIT IS CALLED BY BIT NUMBER 
sLOOKeAHEAD RFGISTER (RHLA) (807) 


ExTis 
EXxT2s 
EXT4s 
EXT102 
EXT20s 
EXT40e 
SCis 
SC2s 
SC4az 
SC10s 
SC20s 
TPKis 
TRK2s 
TRK4s 
TRKiOs 
TRK202 


wcus 
Csfs 
WsUs 
Csus 
MSEs 
TDFs 
TUFs 
FENs 
WRUe 
MHSs 
WHSs 
IXEs 
VU30e 
PLUs 
ACUs 


s OFFSET 


OF2S2 
OFSOs 
OF100e 
OF 200s 
OF 4008 
OFeAds 


4 

2 

4 

10 

20 

40 
100 
200 
400 
1000 
2900 
4000 
10000 
29000 
40000 
199000 


REGISTER 82 (RHEP2) (810) 


1 

a 

4 

10 

20 

an 
100 
200 
490 
1900 
2000 
4000 
19000 
29000 
100000 


REGISTER (RHOF) (#11) 


sEXTENSION 1 (BIT 060) 
sEXTENSION 2 (BIT #1) 
sEXTENSION 3 (BIT #82) 
sEXTENSION 4 (BIT #3) 
sEXTENSTION S (BIT #84) 


sEXTENSION 6 (BIT 65) 

sSECTOR COUNT FIELD @ (SIT #6) 
sSECTOR COUNT FIELD 1 (BIT 87) 
sSECTOR COUNT FIELD 2 (BIT #8) 
sSECTOR COUNT FIELD 3 (BIT 89) 
sSECTOR COUNT FIELD 4 (BIT #14) 
sTRACK FIELD 1 (BIT 811) 
sTRACK FIELD 2 (BIT #12) 
sTRACK FIELD 3 (BIT #13) 
sTRACK FIELD 4 (BIT 814) 
sTRACK FIELD $ (BIT 815) 


sWRITE CURRENT UNSAFE (BIT #0) 
sCURPRENT SINK FAILURE (BIT #1) 
sWRITE SELECT UNSAFE (BIT #2) 
sCURRENT SWITCH UNSAFE (BIT #3) 
sMOTOR SEQUENCE ERROR (RIT 84) 
sTRANSITIONS DETECTOR FAILURE (BIT #5) 
sTRANSITIONS UNSAFE (BIT #6) 
sFAILSAFE ENABLED (BIT #7) 
sWRITE READY UNSAFE (BIT #8) 
:MULTIPLE HEAD SELECT (BIT 89) 
3NO HEAD SELECTION (BIT 819) 
sINDEX ERROR (BIT 811) 

s3O0VOLT UNSAFE (BIT #12) 

sPLO UNSAFE (BIT #13) 

sACUNSAFE (BIT #15) 


sOFFSET 25 MICRO INCHES (BIT #0) 
sOFFSET 50 MICRO INCHES (RIT #1) 
sOFFSET 100 MICRO INCHES (BIT #2) 
sOFFSET 20@ MICRO INCHES (BIT #3) 
sOFFSET 400 MICRO INCHES (BIT #4) 
sOFFSET 890 MICRO INCHES (BIT 65) 


SEQ 9049 
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1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1149 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 


ERROR POINTER TABLE 


000209 
ea2a0a 
94000 
010000 


600001 
000002 
000019 
000020 
900040 
400100 
040000 
190000 
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OFREVs 20¢ SOF FSET NEGATIVE (PFEVERSE) (BIT 65) 

HCIs 2000 sHEADER COMPARE INHIBIT (AIT 810) 

ECIs 4900 sERROP CORPECTION CODE INHIAIT (BIT #11) 
FYT22= 179000 :FORMAT BIT (AIT #12 


sDESIRED CYLINDFRP ADDRESS (RHCA) (812) 
sEACH BIT IS CALLED BY BIT NUMBER, 


sCURRENT CYLINDER ADDRESS (PHCC) (813) 
sEACH BIT IS CALLED BY BIT NUMBER 


sSEPIAL NUMBER PEGISTER (RHSN) (814) 
sEACH IS CALLFD BY AIT NUMBER 


sERROR REGISTER #03 (RHER3) (815) 


PSUs 1 sPACK SPEED UNSAFE (BIT #0) 

VUFs 2 sVELOCITY UNSAFE (BIT #1) 

UWRs 10 sANY UNSAFE EXCEPT READ/WRITE (BIT 83) 
PREs 20 sDISK PACK ROTATION ERROR (BIT #4) 
ACLs 40 sAC LOW (BIT #5) 

OCLs 100 30C LOW (BIT #6) 

SKIis 40000 sSEEK INCOMPLETE (BIT #814) 

OCcYLs 1090090 sOFF CYLINDER (BIT 615) 


sECC POSITION REGISTER (PHEC1) (816) 
sEACH BIT IS CALLED BY BIT NUMBER 


sECC PATTERN PEGISTER (RHEC2) (817) 
sEACH BIT IS CALLED BY BIT NUMBER 


FPESSHSSSSSSHSSSSSSSHSSHSHSOHSHHSSHESSHSESOSSSSHHHEHSHOHHSSTHHHHSHEGOS 
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DERPVB,P11 ERROR POINTER TABLE 

1161 

1182 

1183 

1184 eSBTTL REGISTER ANDRESSES 

1185 

1186 

1187 

1186 

1189 

119¢ 

1191 

1192 

1193 

1194 

1195 

1196 sPPO4 DISK 1/0 REGISTERS LOCATFD IN THE RH11 CONTROLLER 

1197 

1198 002162 176722 RHDB? 176722 sDATA BUFFER 

1199 902164 176702 ; RHWCs 176792 sWORD COUNT 

1200 002166 176704 RHBAs 176704 38US ADDRESS 

1201 002170 176710 RHCS2: 176710 sCONTROL AND STATUS 2 

1202 

1203 sRPO4 DISK 1/9 REGISTERS LOCATED IN THE RPO4 DEVICE LOGIC 

1204 

12@5 02172 176700 RHCSi: 176700 sCONTROL AND STATUS 1 

1206 @02174 176714 RHERis 176714 sERROP 61 

1207 #02176 176706 RHDST: 176706 sDESIRED SECTOR/TRACK ADDRESS 

1208 0602200 176740 RHER2s 176740 sERROR 62 

1209 @02202 176732 RHOF 3 176732 s OFFSET 

1210 002204 176734 RHCAs 176734 sDESIRED CYLINDER ADDRESS 

1211 002206 176742 RHER3: 176742 sERROR 63 

1212 002210 176716 RHAs3 176716 sATTENTION SUMMARY 

1213 #02212 176724 RHMRs 176724 sMAINTAINABILITY 

1214 002214 176712 RHDSi: 176712 sDRIVE STATUS 

1215 0602216 176726 RHDTs 176726 sORIVE TYPE 

1216 002220 176730 RHSNs 176730 sSERIAL NUMBER 

1217 002222 176744 RHECi: 176744 sECC POSITION 

1218 002224 176746 RHEC2: 176746 sECC PATTERN 

1219 902226 176736 PHCCs 176736 sCURRENT CYLINDER ADDRESS 

122@ 08202230 176720 RHLAs 176720 s LOOK*AHEAD 

1221 . 

1272 

1223 

1224 

1225 

1226 sPeCLOCK (KWile-P) 1/0 REGISTERS 

1227 

1228 002232 172540 PCLCSR: 172540 sCONTROL AND STATUS REGISTERS 

1229 #02234 172542 PCLBUFs: 172542 sCOUNT SET BUFFER 

1230 @02236 172544 PCLCTR: 172544 sCOUNTER 


1231 
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1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 


402240 
002242 
002244 
002246 


002250 
02252 
002254 
902256 
002260 
002262 
092264 
002266 
042270 
002272 
002274 
092276 
002300 
092302 
092304 
092306 


MACY11 27(732) 
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sTHE FOLLOWING LOCATIONS ARE RESERVED FOR REGISTERS 
sANY TIME THEPE IS AN EPROR ALL THESE WILL BE FILLED 
sONLY SOME MAY BE PPINTED BUT ALL WILL BE FILLED TRUE 
sFOR THF TIME JUST AFTER THF “ERROR” FRROR COMMAND 


OB: 
WCs 
BAs 
CS23 


csi: 
EPis: 
OST: 
ER23: 
OF: 
CAs 
ER3: 
ASS 
MRS 
DSis 
OT: 
SNe 
ECis 
EC2: 
CC: 
LAs 


sDATA BUFFER 

sWORD COUNT 

sRUS ADDRESS 

sCONTROL AND STATUS 2 


sCONTROL AND STATUS 1 
sERROP 61 

sDESIPED SECTOR/TRACK ADDRESS 
sERROR 82 

sOF FSET 

sDESIRED CYLINDER ADDRESS 
sERROP 83 

sATTENTION SUMMARY 
sMAINTAINABILITY 

sDRIVE STATUS 

sORTVE TYPE 

sSERIAL NUMBER 

sECC POSITION 

sECC PATTERN 

sCURRENT CYLINDER ADDRESS 
s LOOK-AHEAD 


MAINDEC C1 1 eDERP Ved MACY11 270737) I18eFFRe76 16322 PAGE 75 SEQ 0053 
NOERPVE.P11 RFGISTER ADDPFSSES 


1263 

12764 

1265 sFUNCTION EQUATES 

1266 

1267 :TARLF OF FUNCTIONS FOP RHCS] THFN "GO" BIT HAS TO BE SET 
1268 @a2310 FUTABL: 

1269 442310 apneder NOPERA: @ , :NO OPERATION 

1270 #82312 anarea2 UNLOAD: 2 sUNLOAD (STAND BY) 

1271 002314 #0006 FFCALI: 6 sRECALITRRATE 

1272 @02316 #20a1a DCLFAPs 10 sDRIVE CLEAP 

12773 @0232¢@ #800012 PFLFAS: 12 sRELFASE (DUAL©POPT OPERATION) 
1774 022322 900239 SERCH: 3¢ sSEARCH COMMAND 

1275 002324 a9eesea WPCHEF: 590 sWRITE CHECK DATA 

1276 @A2326 80052 WRCHDT: 52 sWRITE CHECK HEADER AND DATA 

1277 #0A2330 a#fan6ed WPIDAT: 60 sWRITE DATA 

1278 @92332 A90A062 WRIFOP: 42 sWRITE HEADER AND DATA (FORMAT) 
1279 002334 9820070 PEADAT: 70 sPFAD DATA 

128% 07336 a00072 REFORs 72 sREAD HEADER AND DATA 

1281 842340 @80na04 SFECOM: 4 sSEFK COMMAND 

1282 082342 3aee14 OFSETCs 14 sOFFSET COMMAND 

1293 002344 @70016 RFTCL: 16 sRETUPNTO CENTERLINE 

1284 042346 0800022 PKACKs 22 sPACK ACKNOWLEDGE 

1285 @02350 9290029 PEADIN: 20 sREAD IN 

1286 8902352 aeAand ILLFGL: .#OPRD e sCOMPUTED ILLEGAL FUNCTION 

1287 

128 sDATA BUFFER FOR READ WRITE 

1289 #02354 900422 WPFROM: ,BLKW 274, sWRITF FROM THIS BUFFEP 

129% 03420 #a0422 REINTO: ,BLKW 274, sREAD INTO THIS BUFFER 

1291 

1292 

1293 

1294 sPESERVFD LOCATIONS 

1295 694464 #0000 REGADR: @ sSAVE REGISTER ADDPESS HERE 

1296 94466 #90002 ERWORD: @ sSAVE ERPOR WORD NUMBER HERE 

1297 an4470 BAA000 TSTNM: @ sTEST NUMBER 

1298 @94472 9800000 RP4VECs @ sCONTAINS ADDRESS OF LOCATION 
1299 sWHFERE AN RPO4 INTERRUPT IS TO VECTOR TO 
1300 sTHIS MUST BE MOVED INTO °RPVEC’ TO BE 
1391 sEFFECTIVE, : 
1302 ’ 

1303 094474 9400900 OFSTVL: 4% sOFFSFT VALUE USED IN OFFSET TEST 

1304 

1305 

1346 AG4476 990024 SAVERE: ,BLKW 2¢. sBLOCK TO SAVE REGISTERS 

1307 004546 920000 FINALA: @ sSAVE LOOK AHEAD REGISTER AT END OF OPERATION 
1308 A@94550 899000 FINACC: @ sSAVE CURRENT CYLINDEP REGISTER AT END OF OPERATION 
1349 

1310 

1313 sTABLE FOR ATTENTION BITS 

1312 sATTENTION TABLE 

1313 004552 001 902 004 ATABLE: BYTE 10204019, 20,400,100, 200 

1314 094555 010 020 04a 

1315 004560 100 200 

1316 

1317 

1318 


MAINDFC11-DERPV-B 
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1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
13286 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 


004562 
AA4602 
004604 


004606 
004610 


004612 
004614 


004616 
004620 


044622 
004624 


904626 
004630 
004632 
004634 


000010 
00009 
000000 


600000 
043900 


400000 
480900 
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SEQ 9054 


sPESERVED LOCATIONS FOR UNIT SELECT 


UNITS: ,ALKW 
UNITS: «WORD 
NOUNIT: WORD 


NUNTTs WORD 
NOPUSH: @ 


SELECT: WORD 
UNITSL: WORD 


ERFLGS: @ 
FIRST: @ 
ATTENTs: @ 
TOTALAT? 
TMP@: e WORD 
TMP13 eWORD 
TMP 4s eWORD 
TMPS3 eWORD 


sTHIS 1S FILLED WITH 1 
sUNTT UNDER TEST 

tNUMBER OF UNTTS PRESENT 

sUSED TO KEEP TRACK OF UNIT UNDER TEST 
sUSED TO DETERMIN IF THERE ARE “ORE 
STHAN ONE UNIT 

tALL ONES INDICATE NONE OF THE OPERATOR 
sINTERVENTION TESTE WILL RE PERFORMED 
sALL ONES INDICATE UNIT TO BE SELECTED 
sUNIT NO, SELFCTED 


sERROR FLAG 
:IF ZERO WILL TYPE HEADER 
sIF ONES WILL NOT TYPE HEADER 


sATTENTION BIT FOR PRESENT UNIT 
sTATAL ATTENTION BITS 


sTEMP STORAGE 


sTEMP STORAGE 
sTEMP STORAGE 
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1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
| 1361 
1362 
1363 
| 1364 
| 1365 
| 1366 
1367 
1368 
1369 
1379 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
1361 
1382 
1383 
1384 
1385 
1386 
1387 
1368 
1389 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 
1400 
1401 


004636 
094644 
0046590 
004652 
004660 
004664 
94666 
A4672 


094676 
004676 
004704 
004710 
094712 
004716 
904720 
004724 
094732 
004746 
004746 
004754 
004762 
004770 
004776 
05904 
605019 
005014 
095022 
005030 


095036 
05044 
@950S2 
005056 
005062 


005066 
095072 
005076 
905100 
005102 
005106 
005196 
905112 


905214 
995214 
905220 


005314 
095314 
605320 


012737 
005037 
000412 
012737 
005037 
A9A404 
005037 
005037 


012737 
012706 
003026 
022706 
001374 
012706 
012737 
012737 
012737 
012737 
012737 
012737 
012737 
012737 
005067 
005067 
112767 
012767 
012767 


012767 
012737 
0137090 
0127290 
812719 


004737 
005737 
@A1001 
090402 
000137 


194409 
009440 


194400 
@A9435 


104400 
000440 
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177777 
004612 


177977 
004610 


044612 
094610 


000340 
001100 


001000 
033952 
000340 
034524 
000340 
036244 
090340 
036306 
000340 
174174 
174172 
000001 
095022 
005930 


900000 
090200 
092160 
633010 
000340 
033776 
084620 
025706 


005114 


@9$222 


905322 


004610 


004612 


177776 


900020 
600022 
000030 
090032 
800034 
000036 
OAOF24 
090026 


174073 
174056 
174052 


172732 
000036 
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BEGINis: 


BEGIN2: 


BEGIN: 


START: 


6483 


eSEHTTL REGISTER TEST 


MOV 8-1,@sNOPUSH sJUMP OVER OPERATOR REQUIRED TESTS 
CLR @8SELECT 300 NOT SELECT UNIT 

PR START 

MOV 8-1,@8SFELECT sSELECT UNIT 

CLR @SNOPUSH 200 NOT JUMP OVER ANY TEST 

BR START 

CLR @eSELECT 300 NOT SELECT UNIT 

CLP @eNOPUSH 300 NOT JUMP OVER ANY TEST 


sNORMAL RUN 


“OV €340,88PS :9LOCK OUT ALL TNTERRUPTS 

MOV @SC¥TAG, R6 s3sFIRST LOCATION TO BE CLEARED 

CLR (R6)¢ 237CLEAR MEMORY LOCATION 

CMP @sTKS,R6 2 :DONE? 

BNE 276 s3LOOP BACK IF NO 

MOV @eSTACK,SP 23SETUP THE STACK POINTER 

MOV @SSCOPE,@SIOTVEC 3;3TOT VECTOR FOR SCOPE ROUTINE 

MOV 0340,@8ITOTVEC*2 ssLEVEL 7 

MOV @SERROR, OGEMTVEC 33EMT VECTOR FOR ERROR ROUTINE 

MOV 0340,@8EMTVEC?2 s3LEVEL 7 

“OV @STRAP,@STRAPVEC 33TRAP VECTOR FOR TRAP CALLS 

MOV 0340,@9TRAPVECe2sLEVEL 7 

MOV @SPWRON,@SPWRVEC 3;POWER FAILURE VECTOR 

MOV 0347, @8PWRVEC+2 s3LEVEL 7 

CLR STIMES se INITIALIZE NUMBER OF ITERATIONS 

CUR sESCAPE 23;CLEAR THE ESCAPE OWN ERROR ADDRESS 

MOVB #1,S8ERMAX 227ALLOW OWE ERROR PER TEST 

MOV @.,-SLPADR seINITIALIZE THE LOOP ADDRESS FOR SCOPE 

MOV @.eSLPERR 23SETUP THE ERROR LOOP ADDRESS 

MOV 60,.P8 2SET PROCESSOR STATUS TO 0 

MOV 8200, @# TRAPVECS2 #TRAP PRIORITY = 4 

“OV @GPPVEC,RO #GET RP VECTOR ADDRESS 

MOV @RPVECT, (RO) sTHIS IS FOR UNTIMELY INTERRUPTS 

MOV #340,(RO) sRPO4 INTERRUPT SERVICE ROUTINE 
sPRIORITY @ 7 

JSR PC, @SSTKINT sINITILIZE THE TK 

TST @eFIRST IS THIS FIRST TIME ROUND 

BNE 1s sBRANCH IF NOT 

BR 28 

JMP @8SND1 

TYPE ee%4 s3TYPE ASCIZ STRING 

BR 648 33GET OVEP THE ASCIZ 

22 .ASCIZ <15><12>/RP?4 FUNCTIONAL CONTROLLER TEST PART II (STATIC 2B) © DER 

TYPE Pr | s3TYPE ASCIZ STRING 

BR 658 33GET OVER THE ASCIZ 

33.ASCIZ <15><12>/MAKE SURE PORT SWITCH ON DRIVE IS LOCKED ON EITHER PORT/ 

TYPE oe%4 seTYPE ASCIZ STRING 

BR 668 23GET OVER THE ASCIZ 

33-ASCIZ <15><12>/IF CHANGE IS REQUIRED ON PORT SWITCH POWER DRIVE DOWN AND 


A 
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1402 005422 6683 

1403 95422 1044060 905430 TYPE 0004 ssTYPE ASCIZ STRING 

1404 005426 0690416 APR 678 33GET OVER THE ASCI2 

1405 23.ASCI? €15><12>/AGAIN AFTER SWITCH CHANGF/ 

1496 405464 678: 

1497 005464 1094400 005472 TYPE oet4 ssTYPE ASCIZ STRING 

1408 @05470 000432 BR 68s 29GET OVER THE ASCIZ 

1409 33 .ASCI2 <15><12>/ALL DCL UNDER TEST “UST BE LOCKED Oh CORPECT PORT/ 

1410 005556 6883 

1411 865556 104490 095564 TYPF. 0204 ssTYPE ASCIZ STPING 

1412 605562 #00427 BR 698 33GET OVER THE ASCIZ 

1413 33 .ASCIZ <15><12>/ALL DCL NOT UNDER TEST MUST BE SWITCHED OFF/ 

1414 005642 6983 

1415 005642 104490 075650 TYPE oof ssTYPE ASCIZ STRING 

1416 005646 90417 BR 708 33GET OVER THE ASCIZ 

1417 39.ASCIZ <15><12>/0R LOCKED ON THE OTHER PORT/ 

1418 605706 : 71083 

1419 @05706 012737 177777 604620 SNDi3: MOV 8o1,8eFIRST sNEXT TIME DO NOT GIVE HEADEP 

1420 

1421 

1422 21S THERE A PeCLOCK (KWiieP) ON THE SYSTEM 

1423 sIF SO MAKE °WAT® TRAPS GO TO °WAIT.P® 

1424 sIF SO MAKE RPO4 INTERRUPTS GO TO “TIME 1° 

1425 s1F NOT MAKE °WAT® TRAPS GO TO °WAIT.T® 

1426 :IF NOT MAKE PPO4 INTERRUPTS GO TO °TIME 2° 

1427 

1428 sTHE NEXT LINE TS TO BE ADDED LATER 

1429 sAND THE JUMP AND NOP REMOVED 

1439 sFOR NOW NO CLOCK WILL BE USED 

1431 sMOVOS1S,@8ERPVECSSET TIME*OUT VECOTR 

1432 905714 0600137 095744 JMP e018 300 NOT USE CLOCK 

1433 90572@ 000240 Nop 

1434 005722 005737 902232 TST @ePCLCSR sREFERENCE P-CLOCK STATUS REGISTER 

1435 sADDRESS = 172540 

1436 005726 612737 830312 636304 MOV OWAIT.P,@8STRPADO20 ; THERE IS A PeCLOCK 

1437 9005734 612737 630252 904472 MOV @TIME1,@@RP4VEC s THERE IS A P CLOCK S80 

1438 sVECTOR TO TEME1 

1439 005742 900406 BR 2s 

1449 005744 0612737 0630552 936304 183 MOV OWAIT,T,@OSTRPAD*20 s THERE IS NO P-CLOCK 

1441 05752 012737 630264 #94472 MOV @TIME2, @GRP4VEC 

1442 605760 612737 177777 634666 28: MOV e-1,@ePRITEM sCLEAR PREVIOUS ITEM NUMBER 

1443 

1444 

1445 

1446 005766 005737 004612 TST @*SFLECT sWAS IT A 200 START 

1447 

1448 0605772 #01442 BEQ TST1 sBRANCH IF STARTING FROM 200 

1449 

145@ 005774 104408 606002 TYPE 004 seTYPE ASCIZ STRING 

1451 406000 000424 BR 648 33GET OVER THE ASCIZ 

1452 33 ,ASCIZ <15><12>/SELECT UNIT NUMBER TO BE TESTED 2? /<15><12> 

1453 686052 6483 

1454 906952 104416 RDOCT 

1455 006054 942716 177770 Bic #177770, (SP) sONLY KEEP LAST 3 BITS 

1456 0606060 911637 64602 MOV (SP), @8UNIT sSAVE UNIT TO BE TESTED 

1457 096064 612637 094614 “OV (SP)¢,@@UNITSL sSAVE UNIT TO BE TESTED 


Te es 
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1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
14607 
1468 
1469 
1470 
1471 
1472 
1473 
1474 
1475 
1476 
1477 
1478 
1479 
1480 
1461 
1482 
1483 
1484 
1465 
1486 
1487 
14868 
1489 
1490 
1491 
1492 
1493 
1494 
1495 
1496 
1497 
1498 
1499 
1500 
1501 
15”2 
1503 
15904 
1505 
1506 
15¢7 
1508 
15¢9 
15190 
1511 
1512 
1513 


LL eee 


a6074a 


096072 


096100 
906102 
006118 
006114 


06122 
006130 
006134 
006140 
006142 
006144 
006146 
096150 
006156 
006160 
A06166 
096170 
006176 
006200 
006204 


906270 
006270 
006274 


006320 
006320 


996324 
#96326 
906332 


006340 


096 346 
4063590 
906356 
906362 
006366 
#96372 


001403 


013737 


020004 
012767 
012706 
012737 


012737 
012790 
012701 
@13102 
005300 
001375 
000471 
012737 
022626 
016167 
104007 
032737 
001053 
104400 
000431 


104400 
000411 


012746 


104402 
900137 
012737 


012737 


000004 
012767 
012706 
013701 
012711 
105711 
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004614 


AN8PA1 
01000 
034532 
006150 


000024 
092162 


000006 
177776 
@20000 


006206 


006276 


027544 
034524 


000001 
001000 
002210 
177777 


94602 


173074 
000030 


OAG084 


OAAGA4 
173004 
177570 


070030 
OP PCH4 


172626 
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REQ TSTI sRRANCH IF STARTING FROM 200 

MOV @CUNITSL, @OUNIT sSET UNIT NUMBER 
FPSSOHSSCHSSHSHFOSHSSSSHSSS SESH SSOSOSSESCEOHOSESEHOESOSESTOREOCES 
s@TEST 1 REFFRENCE EACH REGISTER 
3@ PEFEPENCE EACH REGISTFR BY A “OVE INSTRUCTION 


SESHOSSSSEHHHEHSESSE SETS OTSSOHSHSHSSTHSSTOSHOHESOHSESEOSTOOCOES 
TSTis SCOPE 


MOV #1,STIMES $300 1 ITERATION 
MOV eSTACK, SP :SET UP STACK POINTER 
MoV @PEGSA1,@#EMTVECSERROR VECTOR SO THAT 
:NO REGISTERS ARE SAVED 
MoV 828, @eERRVEC ;SET UP FOR BUS TIMEOUT 
MOV 024, RO sTHERF ARE 24 REG TO TEST 
Mov @RHDB, Ri :R1 WOW HAS ADDR OF ADDR OF FIRST REG, 
18s Mov @(RI)¢, R2 sREAD HARDWARE REG. 
DEC RO :COUNT DOWN 
BNE 18 sBRANCH IF 24 NOT DONE 
BR 38 sBRANCH IF 24 DONE 
283 MOV SERRVEC+2,@8ERRVEC ;RESTORE TRAP CATCHER 
CMP (SP)+, (SP)¢  sCLEAN STACK 
Mov @2(P1), STMP{ STORE FAILING REG ADDR 
ERROR 7 sREGISTER NON EXISTANT 
BIT #SW13,@0SWR sINHIBIT ERROR PRINTOUT ? 
BNE 4s sBRANCH IF YES 
TYPE Pee | s9TYPE ASCIZ STRING 
BR 648 $9GET OVER THE ASCIZ 
39 ASCIZ <15><12>/IF BASE ADDRESS IS TO BE CHANGED HALT PROGRAM / 
646: 
TYPE 0004 :9TYPE ASCIZ STRING 
aR 658 :39GET OVER THE ASCIZ 
$3 ,ASCI2Z <15><12>/AND RESTART AT / 
6583 
MOV SBASECH,=(SP) 1 :GET READY TO TYPE STARTING ADDRESS 
:0F "CHANGE OF BASE ADDRESS® ROUTINE 
TYPoc 
4s: JMP @esEoP :GO TO END OF PROGRAM 
38: MOV SSERROR, @S9EMTVEC; RESTORE ERROR VECTOR 
:SO THAT REGISTERS ARE SAVED 
MOV SERPVEC+2,@8ERRVEC sRFSTORE TRAP CATCHER 
FESSCHSSHSSHSSSSSSSHSSHSSSSSHHSHHSSSSHSHSSHHSSSSSHHSHHCHSSSHSSSSSSSHHHOHES 
2@TEST 2 PARTIAL TEST FOP RHAS FOR UNIT NUMBERS PRESENT 
30 CHECK THAT RHAS CAN BE CLEARED 8Y MOVING ALL ONES 


PPSSOSOESESSEESSHSSOSESHORECOSSOSEHSEOSSOOTSSEOHSSHOSSOSSCETEEOE® 
TST2:% SCOPE 


MOV ¢i,STIMES 23D0 1 ITERATION 

MOV @STACK,SP sSET STACK POINTER 

MOV @@RHAS,Ri :R1 HAS ADDRESS OF RHAS 
MOV @-1,@R1 sTHIS CLEARS RHAS (SURPPISED!) 
TSTB Ori 


~~ en eee ee ne ee 
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1514 

1515 906374 901407 REQ TST} +BRANCH IF GOOD 

1516 

1517 006376 011137 001126 MOV @P1,@8ShNDAT sRAD DATA 

1518 006402 005037 001124 CLP @8SGNDAT 3GOOD DATA 

1519 0696406 0610137 074464 MOV P1,@@REGADR sFAILING REG, RHAS 

1520 906412 104005 ERROR 5 sRMAS DOES NOT CLEAR 

1921 :WITH OWFS 

1522 

1523 

1524 FPSSSSSSHSSSSSSSESSEHSSSSHSSSSSESSSSSHSCSSHSSHSSSSHSHSHSSHSHSSSSSSSSESEES 

1525 :@TEST 3 TFST FOR DRIVES PRESENT USING RHAS AND RHCS? 

1526 rr) THE NUMBER OF RPO4 DRIVES PRESEXT ARE FOUND 

1527 2B BY “MOVING ALL ONES INTO RHER1 WITH UNIT NUMBER 

1528 7* IN RHCS2 INCREMENTED FROM ZERO TO SFVEN 

1529 7° THEN THE SET BITS IN RHAS WILL GIVE DRIVES PRESENT 

1530 T THE DRIVE TYPE IS CHECKED TO HAVE 2020 OR 2402@ AND THEN 

1531 :e UNITS PRESENT ARE STORED IN A TABLE CALLFD “UNITS” 

153? 

1533 FSSSSSSSSHSSHSHSHHSSSSSSESSHSSHSSSHSHSSSHSHSSSHSSSEHSSSTCSSHSOSSSSSESSSOOOSES 

1534 0606414 990004 TST3% SCOPE 

1535 906416 12767 @0e0e1 172560 “ov e1,STIMES 2300 1 ITERATION 

1536 906424 990005 RESET sSTART WITH AN INIT 

1537 006426 904737 033776 JSP PC, @8STKINT sINITILIZE TK 

1538 006432 032737 #200900 177570 BIT @SW13,@8SwWR sINHIBIT FRROR TYPEOUT? 

1539 996440 #01030 BNE 43 sBRANCH IF YES 

1549 006442 104400 076450 TYPE os | ssTYPE ASCIZ STRING 

1541 006446 900425 BR 648 39GET OVER THE ASCIZ 

1542 23. ASCIZ <15><12>/LOOKING AT RHAS © RPO4 DRIVES PRESENT / 

1543 006522 648: 

1544 006522 013701 002210 483 MOV @eRHAS, Pi 2P1 HAS ADOR, OF RHAS 

1545 906526 013702 0¢2170 MOV @8RHCS2,R? 2R2 HAS ADOR, OF RHCS2 

1546 #96532 985012 CLR OP? sCLEAR RHCS2 

1547 006534 012708 efeeie “OV 68.,R0 sCOUNT 

1548 606540 013704 002174 MOV @eRHEPI,R4 2R4 HAS ADDR, OF RHERI 

1549 006544 012714 177777 183 MOV 8-1,0R4 sMOVE ERRORS INTO RHERI 

1559 006550 605212 INC @R2 2 INCREMENT UNIT NO, 

1551 096552 005300 DEC pa sCOUNT 

1552 096554 001373 BNE 1s sBRANCH IF @ NOT DONE 

1553 006556 111137 004624 MOVB @P1,@eTOTALAT ;SAVE TOTAL ATTENTION 

1554 2USED IN ORIVE CLEAP TEST 

1555 096562 195037 004625 CLRA @eTOTALAT¢1 sCLEAR UPPER BYTE 

1556 606566 105711 TSTA ery sTEST FOR ANY DRIVES PRESENT 

1557 086570 001402 REQ 2s sIF SOME WOT THERE BRANCH 

1558 096572 000167 900420 JMP XE2 sNONE THERE 

1559 006576 032737 @20090 177578 28% BIT @SW13,@sSWR sINHIBIT ERROR TYPE OUT? 

1560 096604 001402 BEQ 38 :BRANCH IF NO 

1561 996606 000167 e@99670 JMP TST4 20UT 

1562 096612 383 

1563 696612 104490 006620 TYPE oee4 23TYPE ASCIZ STRING 

1564 #96616 900412 BR 658 33GET OVER THE ASCIZ 

1565 23.ASC1Z <15><12>/NO DRIVES-RHAS20/ 

1566 096644 6583 

1567 606644 194496 006652 TYPE o04 :3TYPE ASCIZ STRING 

1568 006650 600436 Be 668 23GET OVER THE ASCIZ2 

1569 23.ASCIZ <15><12>/WRITING ONES INTO ERROR REGISTER @1 FOR ALL UNIT NUMBERS/ 


rrr rr nt rR A RR lt ag ne 
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DERPVB.Pi1 T3 TEST FOP DRIVES PPESENT USING PHAS AND PHCS? 
1570 €06746 668: 
1571 @06746 104400 #06754 TYPF oe04 :3TYPF ASCIZ STRING 
1572 @06752 400441 Rp 675 33GFT OVER THE ASCIZ 
1573 32 eASCI? <€15>¢€12>/D0FS NOT SFT ANY RIT IN THE ATTENTION REGISTER SO ABORT P 
1574 007056 6783: 
1575 @07056 104400 @°70646 TYPE 0e%4 s3TYPE ASCIZ STRING 
1576 007062 000442 BR 6a8 39GET OVER THE ASCIZ 
1577 32,ASCIZ <15><12>/TO LOOP ON THIS TEST WITHOUT PRINTOUT SET SWITCHS 13 8 
15878 #8071790 6fS3 
1579 A@AT17H OA0137 827544 JP e@esForp 3GO OUT 
1580 407174 005937 004562 CLP OsUNITS 
1581 007200 812767 @09001 175376 MOV 91,NOUNIT 3NO, UNITS PRESENTS} 
1582 007206 @05037 09460602 CLR @sUNIT 
1503 007212 @00137 027544 JMP @eseoP 2:JU“P OUT 
1584 007216 XE2: 
1585 4097216 612700 900010 283 MOV 68.,RO sCOUNTER 
1586 007222 612703 #04562 MOV eUNTTS,R3 sPOINTER 
1587 907226 612723 177777 383 MOV 8-1,(P3)¢ sPRESFT BLOCK TO ALL ONES 
1588 007232 605300 DEC RA sCOUNT 
1589 007234 0801374 BNE 38 BRANCH IF ® NOT DONE 
1599 97236 012703 604562 MOV eUNTTS,R3 POINTER 
1591 007242 695005 CLR PS 
1592 807244 805037 404604 CLR @eNOUNIT sNO,. OF UNITS PRESENT 
1593 007250 612708 9600010 “OV 08, ,RO sCOUNTER 
1594 907254 611137 06011790 MOV @R1,@8STMPO : TEMPORARY STORAGE 
1595 007269 806037 001170 483 ROR @GSTMPO sSET CARRY IF OWE IN © BIT 
1596 
1597 007264 1983065 acc S$ 
1598 007266 010577 172676 MoV R5,@RHCS2 s INSERT UNIT NUMBER 
1899 07272 022777 824020 172716 cP 824020, @RHDOT 21S THIS A DUAL PORT FPO4 
1600 007300 #01450 BFQ 68 BRANCH IF YES 
1601 007302 622777 @20020 172706 cP @20°020,@RHDT 318 THIS A SINGLE PORT RPO 
1642 007310 001444 BEQ 6$ sBRANCH IF YES 
1603 007312 104490 4a49732¢ TYPF 0204 s3TYPE ASCIZ STRING 
1604 9007316 070410 BR 648 33GET OVER THE ASCIZ 
1695 23,ASCI2 <€15><12>/UNIT NUMBER / 
1666 007340 6483 
16097 007340 010546 MOV P5,°(SP) sGET READY TO TYPE UNIT NUMBER 
1608 007342 104419 TYPOS 
1649 007344 104400 007352 TYPE e204 +3TYPE ASCIZ STRING 
1619 007350 2800405 BP 658 23GET OVER THE ASCIZ 
1611 33.ASCI2 4, RHDTs ¢ 
1612 007364 6563 
1613 007364 617746 172626 MOV @PHDT,-(SP) sGET READY TO TYPE RHOT 
1614 007370 104402 TyPepoc 
1615 007372 104400 007400 TYPE oe04 s3TYPE ASCI? STRING 
1616 097376 #00410 BR 668 33GET OVER THE ASCIZ 
1617 3: .ASCIZ 4 eeeNO? AN RPO4/ 
1618 097420 6663 
1619 007420 000407 AR 58 3NO RP@4 FOUND SO BRANCH 
1620 007422 810523 68: MOV RS,(R3)¢ 
1621 007424 104490 9401215 TYPE oSCRLF 
1622 007430 6810546 MOV R5,°(SP) 
1623 407432 1044148 TYPDS sTYPE DRIVE NO, 
1624 007434 005237 9974604 Inc @eNOUNIT 


1625 997440 645205 583 Inc RS 
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DERPVE.P11 T3 TFST FOR DRIVES PPESENT SING PRAS AND RHCS? 
1626 007447 45300 orc Re 
1627 007444 0601305 BYE 4s 
1628 077446 013737 004562 90946727 “av ORUNTTS, @8UNIT 
1629 0607454 613737 04604 AM4606 MoV @sNOUNTT, @@NUNIT SAVE NO, OF URITS 
1630 007462 @05337 004606 DEC OsnUNIT s1F NUNIT & @ THEN ONTY ONF UNIT 
1631 21F NUNTT “ORE THAN @ THEN MORE THAN ONE UNIT 
1632 087366 005737 904612 TST @eSFLFCT tSTARTING ADD®PFESS 200 ? 
1633 
1634 0647472 001403 REQ TST4 tRPANCH IF STARTING FROM 200 
1635 
1636 007474 613737 04614 404602 MOV @CUNITSL, @@UNTIT :SET UNIT NUMBER 
1637 
1638 
1639 
164a 
1641 
1442 
1643 
1644 FSESSSSSSSSSHHSHHSSHSHSHHSHSHHHSSSHSSHESSSHSEHSHSSSHHSHSSHHSSSSHSHSEHOHHOCSES 
1645 s*TFST 4 TYPF SERIAL NUMBER AND DRIVE TYPE 
1646 38 SET APPROPTATE ATTTENTION BIT OF UNIT UNDER TEST IN °ATTENT® 
1647 36 TYPE UNIT UNDEP TEST 
1648 3 READ SERIAL NUMBER AND ORIVE TYPE REGISTERS 
1649 7¢ TYPE IT OUT AND PROCEED 
1650 th TO LOOP HERE SET SWITCH 8, AND THIS TEST NUMBER ON 
1651 3 SWITCHES @ THRIY 7 AND RESTART 
1652 
1653 3 HGSSSSHRSAIGSHSGSS SETS SSHHSKFSSHSSHPOHOSSHPHOSHGOCHPOGHS IFO SHOHHSSOTSSEHRHS 
1654 007502 #00004 TST4: SCOPE 
1655 0907504 012767 600001 171472 MOV @1,STIMES 2300 1 ITERATION 
1656 007512 012767 0607726 171366 “ov €1$,S8LPADR 33SET SCOPE LOOP ADDRESS 
1657 007520 612706 001900 “OV @STACK,SP sRESET STACK 
1658 007524 012737 Aen0g4 004470 MOV 04,@8TSTNM sSAVE TEST NUMBER 
1659 
1660 807532 0604737 030060 JSP PC. @eCLOISK sSET PieRHCS1, R2°-RHCS2 
1661 PRIPRHDS1, R4-RHERI 
1662 sGIVE RH-if INITIALIZE 
1663 sSETUP UNIT NUBER 
1664 007536 0695037 84622 CLR @SATTENT sCLEAR 
1665 007542 013700 604602 MoV @SUNIT,RO sRO CONTAINS UNIT NO 
1666 0977546 116037 604552 604622 MOVB ATABLE( PRA), @@ATTENT sSET APPROPIATE ATTENTION BIT 
1667 907554 194402 007562 TYPE oet4 ¢3TYPE ASCIZ STRING 
1668 407560 080415 BR 648 33GET OVER THE ASCIZ 
1669 23.ASCIZ €15><12>/TESTING DRIVE NUMBER / 
1670 007614 6483 
1671 007614 813746 00460? MOV @SUNIT,-(SP) sUNIT NO, TO STACK 
1672 #97620 104402 TyPeoc sTYPE DRIVE NO, 
1673 007622 104400 00:77:15 TYPE eS8CRLF 
1674 #07626 104400 007634 TYPE oe04 ssTYPE ASCIZ STRING 
1675 @A7632 0064190 BR 658 33GET OVER THE ASCIZ 
1676 33 eASCIZ €15><€12>/SERIAL NO, s / 
1677 #07654 6583 
1678 0097654 017746 172340 MOV @RHSN,-(SP) s9SAVF @RHSN FOR TYPEOUT 
1679 007660 104402 TyPpoc 23GO TYPEe-OCTAL ASCII(ALL DIGITS) 
168A 007662 104490 601215 TYPE oSCRLF 


1681 007666 104408 497674 TYPE eee ssTYPE ASCIZ STRING 


MAINDFC#11-DERPV-B MACY11 27(732) I8°FER©76 16372 PAGE 33 SEQ 0061 
DERPVA.P11 T4 TYPE SEPIJAL NUMRFEF AND DRIVE TYPF 


1682 007672 @70419 RP 666 s3GET OVER THF ASCIZ 

1683 29-ASCIZ <€15>¢€12>/DRIVE TYPE & / 

1684 807714 66S: 

1685 907714 17746 172776 “nov @RHDT,-(SP) s7SAVE @RHOT FOR TYPEOUT 

1686 @A7720 104462 Typoc 23G0 TYPEe-OCTAL ASCIICALL DIGITS) 
1687 0607722 104400 #01215 TYPF o SCRLF 

168R @97726 005777 172266 18s TST @RHSN sRFAD SERIAL YO, AND DRIVE TYPE 

1689 #07732 #@5777 172260 TST @PHDT THESE TWO ARE TO HELP SCOPE LOOPS 
1690 007736 017737 172256 002276 MOV @RHSN,@e@SN :SAVE TO CHECK IF ORIVE CLEAR CLEARS ANY BITS 
1691 097744 017737 172246 002274 MOV @PHOT,@8DT 7SAVE TO CHECK TF ORIVE CLEAR CLEAPS ANY BITS 
1692 

1693 

1694 

1695 

1696 FSSSCSSSSTSSSSAFSHHSSSHEFSHSSSSSHSSHSSSSSSESSESSSHHSSHSSSOSHOHSESSSOCSS 

14697 s*TEST 5 PROGRAM INTERRUPT 

1698 

1699 3° PROGPAM INTERPUPT IS TESTED BY SETTING RDY AND TE 

1700 3¢ IN RHCS! AT THE SAME TIME 

17¢1 38 THIS SHOULD INTERRUPT THROUGH LOCATION 254 

1702 3° THE PROCESSOR PRIORITY IS SET TO 4 

1703 SHEHOEHPSSSSSESSSOPS IU SET SESEOSHF THOSE STGP OFOPHG ESO GHEE SOFIE SHOE SES 

1704 0607752 800004 TSTS: SCOPE 

1705 

1706 

1707 007754 012737 990005 #04470 MOV §6°1,@8TSTNM sTHIS SAVES TEST NUMBER 

1708 

1709 007762 #12706 4019700 MOV @STACK,SP sRESET STACK 

1719 007766 004737 930060 JSP PC, @eCLDISK sCLFAR DISK 

1711 007772 613740 602160 vOV @@RPVEC,RO sGET PP VECTOR ADDRESS 

1712 007776 0612720 010040 MOV @RPTRP1, (PO) sTHIS IS FOR TIMELY INTERRUPTS 
1713 @10002 012719 900340 MOV 8340,(RO) sRP®4 INTERRUPT SERVICE ROUTINE 
1714 sPRIORITY @ 7 

1715 

1716 010006 912767 000200 167762 MOV #200,PS8 sSET PROCESSOP PRIORITY 

1717 0109914 612711 0600300 MOV ORDYITE,@R1 sRDY, IF IN RHSC1 SHOULD CAUSE INTERRUPT 
1718 610020 013737 630550 001172 MOV SUTIMCNT, @8STMP1 SCOUNTER 

1719 8010026 405337 001172 18s DEC OSS TMP sWAIT FOR INTERRUPT 

1720 #10032 #01375 BNE is ?BRANCH IF NOT ZERO 

1721 sBEFORE THIS IS ZERO INTERRUPT SHOULD 
1722 s OCCUR 

1723 #10034 104065 ERROR 65 s INTERRUPT DID NOT OCCUR 

1724 

1725 

1776 010036 600495. BR TST6 sBRANCH TO NEXT TEST 

1727 

1728 

1729 0190049 #22626 RPTRPi: CMP (SP)¢,(SP)+ sRESTORE STACK 

1732 @10042 622711 004200 cmp SDVAIRDY,@R1 sIE SHOULD BE LOW 

1731 

1732 0109046 001401 BEQ TST6 sBRANCH IF GOOD 

1733 , 

1734 @19950 104065 FPROR 65 s INTERRUPT OCCURED BUT 

1735 s1E FAILED TO RESET 

1736 


1737 
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1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
1789 
1790 
1791 
1792 
1793 


a 


010052 


017054 


010062 
016066 
919972 
A10976 
010102 


919106 
910114 
810120 
910126 
#10132 


010134 


010142 


916144 
010146 
910152 


T6 


890004 


012737 


012706 
004737 
013700 
012720 
6127190 


012767 
012711 
013737 
005337 
001375 


090402 


022626 
104065 


400004 


900005 
904737 
012767 


MACY11 27(732) 


801000 
030060 
002160 
010136 
070340 


000240 
000300 
030550 
#01172 


033776 
808000 


094470 


167662 
001172 


167616 


1G@eFER°76 16327 PAGE 34 SEQ 0062 
INTFRPUPT AT PROCESSOP AND DISK PRIORITY SAME 


s@TFST 6 INTERRUPT AT PROCESSOP AND DISK PPIORITY SAME 
3 PPOCESSOP PPIORITY IS SET AT S (SAME AS THE DISK) 
2° IE AND RDY IS SET, THIS SHOULD NOT INTERRUPT 


FOOSSSSSCHSTSESOSTOSSOOHEHEHESSHESOSCSSSSSSSSE HESS SH SOTSHTOTOTOOES 
TST63 SCOPE 


vov 8701, @8TSTNM :THIS SAVES TEST NUMBFR 
wov @STACK,SP :RESET STACK 
JSR PC, @sCLDISK :CLEAR OTSK 
MOV @eRPVFC, RO :CET RP VECTOR ADDRFSS 
MoV @RPTPP2,(RO)e :THIS IS FOR UNTIMELY INTERRUPTS 
MOV 8340,(RA) sRP@4 INTERRUPT SFRVICE ROUTINE 
sPRIOPRITY s 7 
MOV 9249,PS :SET PROCESSOR PRIORITY 
MOV @RDYITE,@R1 :RDY, IE IN RHSC{ SHOULD CAUSE INTERRUPT 
MOV @OTIMCNT, GOS TMP! sCOUNTER 
18: pec @esTMPt :WAIT FOR INTERRUPT 
BNE 18 sBRANCH IF NOT ZERO 
:BEFORE THIS IS ZERO INTERRUPT SHOULD 
s OCCUR 
BR TST? 3NO INTERRUPT SO BRANCH 
RPTRP2: CMP (SP), (SP)¢ sRESTORE STACK 
ERROR 65 sINTEPRUPT OCCURRED WITH ol 
:PROCFSSOR STATUS SAME ~ 
2AS DISK 


s®TEST 7 SET VV BIT 86 IN RHDS! 

30 THIS TEST SETS VV IN RHDS1 INCASE 

se ACT-11 MONITOR IS PRESENT AND THE PREVIOUS TEST 
36 IS NOT PERFORMED 

30 THERE IS A RESET AT THE BEGINING OF THIS TEST 
78 FOR ERROR RECOVERY ONLY, 


SESSSSSSHSEFESHSSCSESESSHSSHSOSSHCOSSHSOOSHSSOVSHOSEHOSOSOSEEESS 
TST73 SCOPE 


3IN CASE THERE TS ANY DRIVE EPRORS DURING POWER UP 
29OR POWER DOWN OR ANY PARITY ERRORS A RESFT IS GIVEN 


RESET 
JSR PC, @OSSTKINT sINITILIZE TK 
MOV #0,PS 
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DFRPVAR.P1) T7 SET VV BIT #6 IN PHDS! 
1794 010160 012796 #01000 MOV @STACK,SP :RESET STACK 
1795 010164 012737 @90007 8044720 “nV 87,a8TSTN™ sSAVE TEST NUMRFR 
1796 
1797 #10172 004737 a3060 JSP PC, @sCLDISK :SET PieRHCS1, P2°RHCS? 
1798 tP3-RNDS1, P4°RHFRI 
1799 sGIVE RHef1 INITIALIZE 
1800 :SETUP UNIT NUBER 
1841 010176 094737 030116 JSR c,@sCHECK :CHECK DVA,ROY,MOL,DPP,DRY 
1802 
183 010202 013777 002346 171762 MOV @SPFKACK,@RHCS1  sGET PEADY FOR PKACK 
1904 :PACK ACKNOWLEGNE WITH 22 IN RHCS1 
1805 
1896 
1807 :NOW SAVE REGISTERS FOR COMPARISON AFTER PACK ACKNOWLEDGE 
1998 
18999 019210 994037 630220 JSR PA, @eSAVER sSAVE REGISTERS 
1812 010214 092164 rHWC gRHWC IS THE FIRST REGISTER SAVED 
1811 010216 004476 SAVERE sSTARTING ADDRES OF WHERE 
1812 ; sTHE REGISTERS ARE SAVED 
1813 #19220 990022 18, sNUMBER OF REGISTERS 
1814 sSAVED = 16, 
1815 
1816 810722 013777 @@4472 171730 MoV @QPP4VEC,@RPVEC :SET RPO4 VECTOR ADDRESS 
1617 :TO °TIME1® IF PeCLOCK IS PRESENT 
1818 sOR TO °TIME2° IF PeCLOCK IS NOT PRESENT 
19819 9°TIME’ WILL ONLY SAVE 
1820 sCURRENT CYLINDER ADDRESS 
1821 2AND LOOK AHEAD RFGISTERS 
1822 
1823 
1824 010230 613746 692346 MOV @ePKACK,©(SP) :GET READY TO MOVE COMMAND 
1825 019734 052716 900001 BIS #GO0, (SP) 3GET READY TO SET GO 
1°26 gWITHOUT INTERRUPT ENABLE 
1827 010240 012677 171726 MoV (SP)+¢,@RHCS1 360 WITH 
1828 $22 IN RHCS1 FOR PACK ACKNOWLEDGE 
1829 sWITH INTERRUPT DISABLED 
1830 
12931 0190244 611100 MOV @R1,RE sSAVE RHCS1 DURING ABOVE OPERATION 
1832 010246 011305 MOV @ORI,RS :SAVE RHDS1 DURING ABOVE OPERATION 
1833 
1834 
1835 019250 194420 WAT sWAIT FOR VV BIT TO SET 
1836 610252 602214 RHDS! sWAIT FOR RHDS1 REGISTER 
1937 010254 600109 vv sWAIT FOR VV BIT IN RHOS1 REGISTER 
1838 810256 #920001 1. sALLOW 10 MICRO SECONDS 
1839 #19260 900001 i. :VV MUST SET BETWEEN 
1840 39@ AND 2@ MICRO SECONDS 
1841 sCOMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
1842 #R@ AND RS IMMEDIATELY AFTER GO 
1843 910262 613746 002346 MOV @sPKACK, ©(SP) sSAVE COMMAND 
1844 010266 052716 004200 BIs @OVAIRDY, (SP) s INCLUDE DVAIRDY 
1845 010272 611637 901124 MOV (SP),@@SGDDAT sSAVE FOR PRINTOUT 
1846 010276 022600 cve (SP)o,RO sDURING ABOVE OPERATION ONLY DVAIRDY 
1847 :AND COMMAND SHOULD BE SET 
1848 9810300 901405 BEQ 648 2BRANCH IF GOOD 
1849 910302 010037 991126 woV PO, @8S8BDDAT 2BAD DATA 


a et a TTT 





MAINDEC #11 °DERPVeB 


1950 018306 
1851 610312 
1852 
1853 010314 
1854 0610320 
1855 610324 
18656 
1857 010326 
1858 010330 
1859 010334 
1862 0610340 
1861 
1862 #10342 
1863 
1864 010342 
1865 019346 
1866 
1867 010359 
1868 010352 
1969 019354 
1970 
1871 
1872 
1873 
1874 
1875 
1876 619356 
1877 
1876 010362 
1879 010364 
1880 0610366 
1861 010370 
1882 #10372 
1883 
1884 010374 
1885 #10376 
1886 
1687 
1888 
1889 
1890 
1991 
1892 
1893 
18694 
1895 
1896 #10400 
1997 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1995 


T7 


910137 
104921 


012746 
011637 
022605 


901405 
016537 
010337 
194063 


004037 
002214 


004037 


004476 
082242 
000022 
010374 
010400 


104015 
008207 


MACY11 27(732) 


1ReFER<76 


SET VV RIT #6 IN PHOS! 


004464 
819700 


001124 


001126 
@04464 


030732 


031040 


MOV 


ERROR 


6463 MOV 
MOV 
cme 


BEQ 
“OV 
MOV 


EPROR 


16:27 PAGE 36 


P1,@eREGADPR 
21 


S“OLIDPPIDRYIVV,°(SP) 
(SP), @8SGDDAT 


(SP)¢,R5 


668 
PS, @8SBDDAT 
R3,@ePREGADR 
63 


RO, @8CHREG 


sFAILING REGISTER RHCSI 

sDURIKG ABOVE OPERATION ONLY 

sCOMMAND AND DVA!IRDY SHOULD BE SET 

#SAVE BITS SET DURING OPERATION IN RHDSI 
sSAVE FOR PRINTOUT 

sDURING ABOVE OPERATION OWLY MOLIDPRIOPY! VV 
sSHOULD BE SET 

sPRANCH IF GOOD 

sBAD DATA 

sFAILING REGISTER RHDS! 

sDURING ABOVE OPERATION ONLY 
sMOLIDPRIDPYIVV SHOULD BE SET 


sCHANGE BITS IN SAVED REGISTER 
sCHANGE RHDS1 REGISTER 


81 BIT/BITS TO BE CHANGED 
sWEW VALUE OF vv IS 1 
sCHANGE VV BIT 


sNOW COMPARE REGISTERS BEFORE PACK ACKNOWLEDGE 
sWITH AFTER PACK ACKNOWLEDGE 


JSR 


SAVERE 


we 
18, 
1$ 
28 


183 ERROR 


RTS 


RG, O8COMREG 


15 
pc 


sCOMPARE SAVED REGISTFPS WITH 
sPRESENT VALUE 

3GOOD DATA SAVED IN °SAVERE’ 
sTEST DATA STARTING FROM “RHWC? 
316, REGISTERS TO BE COMPARED 
sRETURN TO 16 ON ERROR 

sPETURN TO 28 ON NO ERROR 


sGIVING A PACK ACKNOWLEDGE 
sCAUSED AN ERROR 

sPACK ACKNOWLEDGE SHOULD 
sSET VV IN RHDSI 

s INTERRUPT SHOULD MAKE 

sIE 2 @ 

sNO OTHER REGISTERS SHOULD 
s CHANGE 

3GOOD DATA GIVES CONTENTS 
s0F REGISTER BEFORE COMMAND 
sRECEIVED DATA GIVES CONTENTS 
s0F REGISTER AFTER COMMAND 


PPOSSSSSSSESESSOSHSSOSESHOSEHFSST SSS SESESESEOSEOSESESSSOSECESOOOS 
LAST BLOCK TRANSFEREDeRHDS1 BIT#1¢ 


s*TEST 10 


3@ WRITE ONE WORD OF 65125 ON CYLINDER 410, TRACK 18 


MAINDEC?11-DERPV<-B MACY11 27(732) 1f@FER©76 16222 PAGE 37 SEQ 7065 
DERPVS.Pi1 T10 LAST BLOCK TRANSFERED-PHDS1 PITS190 

1906 hd SECTOR 21, BY A WRITE HFADEP AND DATA COMMAND 

1907 36 THEN CHFCK ALL REGISTERS (LAST BLOCK TPANSFERED 

1998 2% SHOULD BF SET) 

1909 7 THEN READ AROVF RY PEAD DATA 256 WORDS 

1910 38 AGAIN L®BT SHOULD BE SET 

1911 76 CHECK ALL REGISTERS AND DATA 

1912 

1913 FPOSSSCSSSTHS HOSES SSESOHOHSOSCESOSHOHOSTOSEO HOSTESS ESOHSCORECESCES 

1914 0180400 900004 TSTi@: SCOPE 

1915 19402 612706 9aF1F00 MOV @STACK, SP sRESFT STACK 

1916 010406 012737 @neale 9046470 vov 810,@8TSTNM sSAVE TEST NUMBER 

1917 

1918 910414 #04737 9630060 JSR PC, @sCLPISK sSET RieRHCSi1, R2-PHCS? 

1919 sR3-RHDS1, P4-RHEPI 

1920 sGIVE RHe-1} INITIALIZE 

1921 sSETUP UNIT NUBER 

1922 

1923 sFILL WRITE FROM BUFFER WITH HEADFR 

1924 

1925 0610420 604037 927704 JSP RO, @@FLHEAD sSAVE HEADEP DATA IN WRFPOM 

1926 610424 902354 WRF ROW sLOCATION WHERE SAVED 

1927 019426 600905 5 sNUMBER OF WORDS SAVED 

1928 010430 0610632 19632 . sFIRST DATA WORD 

1929 #19432 611025 <18,8400>!3<21,> sSECOND DATA WORD 

1939 610434 600000 6 sTHIRD DATA WORD 

1931 019436 800000 @ sFOURTH DATA WORD 

1932 610440 665125 <26,#2000>1<18,040>!1<¢21,> sFIFTH DATA WORD 

1933 

1934 sFILL READ INTO RUFFER WITH ALL OWES 

1935 

1936 019442 094037 027730 JSR RO, @SCLAREA sCLEAP 256 WORDS, FROM REINTO 

1937 010446 003420 REINTO sSTARTING FROM REINTO 

1938 810459 600256 256 3256 WORDS 

1939 010452 177777 e1 sFILL WITH eo} 

1940 

1941 

1942 sWRITE HEADER AND DATA 18 LOADED 

1943 

1944 010454 904037 0632024 JSR RO, @8RUN sSETUP TO RUN FOR DATA COMMAND 

1945 018460 000632 410, sCYLINDER 414, 

1946 010462 025 o8YTE 21. sSECTOR 21. 

1947 819463 022 BYTE 18, sTRACK 18, 

1948 #10464 177773 e1e4 sWORD COUNT (DATA)s1¢ 

1949 34 HEADER WORDS 

1959 010466 092354 WRFROM sBUS ADDRESS 

1951 sSTARTING ADDRESS OF DATA 

1952 sBUFFER s WRFROM 

1953 019470 #090000 @ 300 NOT INHIBIT BUS ADDRESS INCREMENT 

1954 010472 610000 ‘ FMT22 316 BITS PEP WORD FORMAT 

1955 ; :DO0 NOT INHIBIT ECC CORRECTION 

1956 2D0 NOT INHIBIT HEADER COMPARE 

1957 010474 602332 WPRIFOR sGET READY TO DO A WRIFOR 

1958 sWRITE HEADER AND DATA WITH 62 IN RHCS1 

1959 

1960 

1961 sNOW SAVE REGISTERS FOR COMPARISON AFTER WRITE 


a TT TTT TT TTT 


MAINDEC S11 eDERPVes 
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1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 
19°73 
1974 
1975 
1976 
1977 
19278 
1979 
1982 
1981 
1982 
1983 
1964 
1985 
1986 
1987 
1988 
19a9 
199¢ 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1998 
1999 
2200 
2001 
2902 
2903 
2004 
2005 
2306 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 


2015: 


2016 
2017 


A1A476 
810502 
10504 


0180506 


017510 


#10514 


010522 
910526 


810532 


910536 
019540 
010542 
010544 
010546 


19550 
019554 
010556 
010560 
010564 
019566 


010570 
010574 


019576 
010690 
010602 


010604 
910610 


010612 
019614 
010616 
#19620 
010624 
010626 


T10 


24037 
062164 
004476 


AGAC22 


094737 


013777 


013746 
052716 


012677 


104420 
002214 
02009 
004704 
004704 


004037 
#02164 
0800000 
004037 
092166 
002366 


094037 
@62214 


000001 
890001 
AA2000 


004037 
002204 


000001 
009001 
000601 
004037 
002176 
600900 


MACY11 270732) 
LAST PLOCK TRANSFERED©PHDS! BITS14 


@3022v: 


030140 


AG4472 


@A2332 
O90101 


171434 


#27762 


027762 


030732 


030732 


027762 


171436 


1f8eFFRS76 «816222 PAGE 3A 


Jse FC, @@SAVFR 
~HeC 

SAVERFE. 

18, 

JSP PI, @8CHECKT 

MOV @sPP4VEC, @RPVEC 
MOV @ewRIFOR,=(SP) 
ATS sGO!IE,(SP) 

MOV (SP)¢,@RHCS1 


sTIME 18 NOT CRITICAL 


WAT 
RHDS! 
LAT 
2500, 
2500, 


sSAVE RFGISTERS 

sPHWC IS THF FIPST PEGISTFR SAVED 
sSTARTING ADDRES OF WHEPE 

sTHE REGISTFRS ARE SAVED 

sNUMBFR OF PEGISTERS 

?*SAVED = 18, 


s CHECK DVA,RDY, MOL, OPP ,DPY,VV 


sSET PP?4@ VECTOR ADDRESS 

sTO °TIME1’ IF PeCLOCK ITS PPESENT 

sOR TO °TIME2° IF PeCLOCK IS NOT PRESENT 
:°TIME* wILL ONLY SAVF 

sCUPRFENT CYLINDER ADDRESS 

sAND LOOK AHEAD REGISTERS 


sGET READY TO MOVE COMMAND 
sGET READY TO SET GO AND 
sENABLE INTERRUPT 
3:GO WITH 
362 IN RHCS1 FOR WRITE HEANEP AND DATA 
:WITH INTERRUPT ENABLED 


sWAIT FOR LAT BIT TO SET 

sWAIT FOR RHNSi REGISTER 

sWAIT FOR LAT BIT IN RHDS1 REGISTER 
sALLOW 25000 MICRO SECONDS 

sLBT MUST SET BETWEEN 

390 AND 50000 MICRO SECONDS 


sNOW CHANGE SAVED REGISTERS TO FXPECTED VALUE 


JSR RO, @OFILLRE 
RHWC 

0 

JSP RO, @OFILLRE 
RHBA 

WRE POMe<5#2> 


JSR RO, ASCHREG 
RHDS1 


JSR RO, @8CHREG 


BIT@ 

JSR RO, @8FILLPRE 
PHDST 

@ 


sMOV @ INTO SAVED RHWC 
sSAVED REGISTER TO CHANGE 
sDATA 
sMOV WRFROM+<5@2> INTO SAVED RHBA 
sSAVED REGISTER TO CHANGE 
sDATA 


:CHANGE BITS IN SAVED REGISTEP 
sCHANGE RHDS1 REGISTER 


31 BIT/BITS TO BE CHANGED 
sNEW VALUE OF LOT IS 1 
sCHANGE LAT BIT 


sCHANGE BITS IN SAVED REGISTER 
sCHANGE RHCA REGISTER 


31 BIT/BITS TO 8E CHANGED 
sNEW VALUE OF BIT@ IS 1 
sCHANGE BIT? BIT 

s4OV ® INTO SAVED RHDST 
sSAVED REGISTER TO CHANGE 
sDATA 
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DERPVB,.Pi1l T10 LAST BLOCK TRANSFERED-RHDS1 BIT#1¢ 
2018 
2019 sCOMPARE ALL REGISTERS 
2020 
2021 810639 674037 031940 JSR RG, @8COMREG sCOMPARF SAVED REGISTERS WITH 
2022 sPRESENT VALUF 
2023 910634 004476 SAVERE 2GOOD DATA SAVED IN “°SAVERE’ 
2024 010636 0602242 we sTEST DATA STARTING FROM °PHWC’ 
225 010646 600021 17. 317, REGISTERS TO BE COMPARED 
2026 019642 010646 1s sRETURN TO 18 ON FRROPR 
2027 810644 619652 28 sRETUPN TO 28 ON NO ERROR 
2028 
2029 010646 194045 iss ERROP 45 sWRITING ON THE LAST BLOCK 
2030 010650 000207 RTS pc sIE, CYLINDER 410, SECTOR 21 
2031 sTRACK 18 CAUSED 
2032 sIMPROPER REGISTER CHANGE 
2933 #GOOD DATA GIVES WHAT 
2434 sSHOULD BE THERE 
2935 sRECEIVED DATA GIVES WHAT 
2036 sWAS THERE AFTER WRITE 
2037 sON LAST BLOCK 
2038 
2039 sNOW A READ DATA WILL BE DONE ON SAME CYLINDER, SECTOR 
2440 3s TRACK 
2041 sCLEAP ERRORS 
2042 810652 283 
2043 
2044 010652 804737 030060 JSR PC, @eCLDISK sSET RieRHCS1, R2-RHCS2 
2045 sR3-RHDSi, R4°PRHERI 
2046 sGIVE RHe1il INITIALIZE 
2047 sSETUP UNIT NUBER 
2948 
2049 sFILL WRITE FROM RUFFER WITH EXPECTED DATA 
2050 
2051 8010656 004037 627704 JSR RO, @sFLHEAD sSAVE HEADER DATA IN WRFROM 
2952 010662 862354 WRF ROM sLOCATION WHERE SAVED 
2053 010664 600001 1 sNUMBER OF WORDS SAVED 
2954 010666 0665125 <26 .#2000>!1<18,840>!<21,> sFPIRST DATA WORD 
2055 019670 004037 427730 JSR RO, @eCLAREA sCLEAR 256, WORDS, FROM WRFROMe2 
2056 019674 0662356 WRFROMe2 sSTARTING FROM WRFROMS2 
2057 810676 080400 256. 3256, WORDS 
2058 A19700 990000 0 sFILL WITH @ 
2959 
2960 
2961 sPEAD COMMAND I8 LOADED 
2062 
2063 810702 004037 432024 JSR RO,@8RUN sSETUP TO RUN FOR DATA COMMAND 
2964 010706 000632 410, sCYLINDER 410, 
2965 610710 025 BYTE 21. sSECTOR 21. 
2966 010711 022 BYTE 18, sTRACK 18, 
2067 @10712 177400 -256. sWORD COUNT s 256. 
2968 810714 0034290 REINTO , sBUS ADDRESS 
2069 sSTARTING ADDRESS OF DATA 
2070 sBUFFER # REINTO 
2971 189716 890000 ® :D0 NOT INHIBIT BUS ADDRESS INCREMENT 
2072 016720 610000 FMT22 . 216 BITS PER WORD FORMAT 


2073 3DO0 NOT INHIBIT ECC CORRECTION 





MAINDEC©11 -DERPV-B MACY11 27(732) 18-FEB*76 16222 PAGF 49 SEQ 9068 
OFRPVB,.P1i1 T10 LAST BLOCK TRANSFERED-PHDS1 BIT#10 


2074 :DO0 NOT INHIBIT HFADEP COMPARE 
2075 @10722 002334 READAT :GET READY TO DO A READAT 

2076 sREAD DATA WITH 70 IN RHTSI 

2077 

2078 

2079 sSAVE PEGISTERS FOR COMPARISON AFTER READ DATA 

2080 810724 904037 030220 JSP RO, @e@SAVEP SAVE REGISTERS 

2981 6810730 002164 RHWC sRHWC IS THE FIRST REGISTFR SAVED 
2082 810732 904476 SAVFRE sSTARTING ADDRES OF WHERE 

2083 sTHE REGISTERS ARF SAVED 

2084 010734 006022 16, NUMBER OF REGISTERS 

2085 sSAVED = 18, 

2086 8610736 0604737 9830140 JSR PC, @@CHECKT sCKECK DVA,RDY.“OL,DPR,DRY,VV 
2087 

2088 810742 613777 904472 171219 “OV @@RP4VEC,@RPVEC sSET PPA4 VECTOR ADDRESS 

2089 3TO °TIME1°® IF PeCLOCK IS PRESENT 
27°90 20OR TO °TIME2° IF PeCLOCK IS NOT PRESENT 
2091 3:°TIME’ WILL ONLY SAVE 

2992 sCURRENT CYLINDER ADDRESS 

2993 sAND LOOK AHEAD REGISTERS 

2094 

2095 @10759 013746 002334 @@READAT,-(SP) :GET READY TO MOVE COMMAND 
2096 010754 052716 0800101 eGOLIE, (SP) 3GET READY TO SET GO AND 

2097 sENABLE INTERRUPT 

2¢98 819760 012677 171206 (SP)¢,@RHCSi :GO WITH 

2099 37@ IN RHCS1 FOR READ DATA 
2140 sWITH INTERRUPT ENABLED 

2101 

2102 sTIME IS NOT CRITICAL 

2103 

2194 610764 104420 WAT sWAIT FOR ROY BIT TO SET 

2105 910766 082172 RHCS1 sWAIT FOR RHCSi1 REGISTER 

2196 810770 0690200 RDY sWAIT FOR RDY BIT IN RHCS!1 REGISTER 
2107 810772 01614 9086, sALLOW 9086 MICRO SECONDS 

2198 010774 601502 634, sRDY MUST SET BETWEEN 

21¢9 374@ AND 17420 MICRO SECONDS 
2110 sNOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 

2111 8010776 004037 @27762 JSR RO, @eFILLRE s4OV @ INTO SAVED RHWC 

2112 011902 002164 RHWC sSAVED REGISTER TO CHANGE 

2113 011004 e90000 a sDATA 

2114 611906 684937 827762 JSR RO, @SFILLRE sMOV REINTO¢<256.82> INTO SAVFD RHBA 
2115 @O11012 002166 RHBA sSAVED REGISTER TO CHANGE 

2116 011014 094420 REINTO+¢<256,82> sDATA 

2117 

2118 011916 094037 930732 JSR RO, @¢CHREG sCHANGE BITS IN SAVED REGISTER 
2119 611922. 002214 RHDS! sCHANGE RHDS1 REGISTER 

2120 

21271 011924 900001 #1 BIT/BITS TO BE CHANGED 

2122 611926 990001 NEW VALUE OF LBT IS 1 

2123 011930 0A2000 sCHANGE LBT BIT 

2124 

2125 0119032 004037 630732 PA, @8CHREG sCHANCE BITS IN SAVED REGISTER 
2126 11936 002204 sCHANGE RHCA REGISTER 

2127 

2128 011040 #90001 31 BIT/8ITS TO BE CHANGED 

2129 811942 600001 :NEW VALUE OF BIT@ IS 1 





MAINDFC#11 -DERPV<B 
DERPVA Pil 


2130 
2131 
2132 
2133 
2134 
2135 
2136 
2137 
2138 
2139 
2140 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
2148 
2149 
2150 
2151 
2152 
2153 
2154 
2155 
2156 
2157 
2158 
2159 
2160 
2161 
2162 
2163 
2164 
2165 
2166 
2167 
2168 
2169 
2170 
2171 
2172 
2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2164 
2185 


011044 
11046 
011952 
011054 


011962 
011064 
911066 
011070 
011072 


011074 
011076 


011100 


011100 
011104 
011106 
011118 
11112 
11114 


#11116 
011120 


011122 


T190 


HA0001 
004037 
002176 
AAGA00 


a04037 


004476 
002242 
009022 
911074 
#11100 


104045 
#00207 


004037 
002354 
603420 
900400 
O11116 
#11122 


104046 
900207 


MACY11 27(732) 
LAST PLOCK 


027762 


932070 


1ReFER@©76 16322 PAGF 41 


383 


483 


TRANSFERFD@RHDS1 BITe1A 


BITA 

JSR RO, @9FTLLPE 
RHDST 

a 


sCOMPAPF ALL REGISTERS 
JSR RA, PBCOMREG 


SAVERF 
we 

14. 

38 

4s 


ERROR 4s 
RTS pc 


sCHANGE BITO RIT 

:MOV ® TNTO SAVED PHDST 
sSAVED PREGISTFR TO CHANGE 
DATA 


sCOMPARE SAVED PEGISTERS WITH 
sPRESENT VALUE 

3GOOD DATA SAVED ITN °SAVERE® 
sTEST DATA STARTING FROM °RHWC? 
318, REGISTERS TO BE COMPAPFD 
sRETUPN TO 38 ON ERROR 

sRETURW TO 48 ON NO ERROR 


sREADING ON LAST BLOCK TE. 
sCYLINDER 10, SECTOR 21, TRACK 18 
sCAUSED AN ERROR 

2G00D DATA GIVES WHAT SHOULD 

sRE THERE 

gRECEIVED DATA GIVES WHAT 

2:WAS THERE AFTER READ 

3FROM LAST BLOCK 


sREAD DATA WILL BE COMPARED 


JSF RO, @8COMPAR 
WRFROM 


ERROR 46 
PTS pc 


sCOMPARE TWO BLOCKS OF ME™MOPY 
3GOOD DATA STARTS FROM WRFROM 
sTEST DATA STARTS FROM REINTO 
3256, WORDS TO RE COMPARED 

sRETURN TO S$ ON ERROR 

sRETUPN TO 68 ON NO ERROR 


sOATA READ FROM 
sLAST BLOCK IN ERROR 


s@TEST 11 


SEAPCH COMMAND 


THE SEARCH COMMAND WILL BE DONE ON CYLINDER @ 

THAT IS STPRTING WITH A RECALIBRATE 

THEN HEADER AND DATA WILL BE WRITTEN FOR SECTOR @ AND 1 
ALL REGISTERS WILL BE CHECKED 

A SEARCH COMMAND WILL BE GIVEN FOR SECTOR 6 

ON INTERRUPT SECTOR 1 HEADER AND DATA WILL BE READ 
TIME WILL BE CRITICAL AS THE TIME TAKEN TO DO THE 

READ IS THE ONLY INDICATOR THAT THE HEADS WERE ON 
SECTOR ® AT INTERRUPT TIME, TIME ALLOWED IS MAXIMUM 


OF 1590 MICRO SECONDS 


THEN ALL REGISTERS ARE CHECKED AND DATA READ 


MATNDEC “11 -NERPV=B 
DEPPVB.P11 


2186 
2187 
21868 
2189 
2190 
2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
22¢0 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
22712 
2213 
2214 
2215 
2216 
2217 
2218 
2219 
2220 
2221 
2222 
2223 
2724 
2225 
2226 
2227 
2228 
2229 
2230 
2231 
2232 
2233 
22734 
2235 
2236 
2237 
2238 
2239 
2240 
2241 


11122 
011124 
011130 


011136 


011142 
011146 


011164 


0111790 
011172 
a11174 
011176 
011200 


#11202 


011296 
011212 
011214 
011216 
011220 
011222 
011224 


011226 
#11232 
011234 
011236 


Ti! 


AP0004 
012796 
012737 


004737 


004737 
013777 


013746 
052716 


012677 


194420 
002214 
AG0200 
012740 
012737 


094737 


604037 
062354 
00004 
410000 
090060 
980000 
800000 


004037 
002364 
000400 
000000 


MACY11 77(732) 
SFARCH COMMAND 


A01900 
000011 


030140 
094472 


002314 
000101 


171002 


027704 


027730 


064470 


171004 


1R8eFERo76 


SEQ 96070 


FSSSSSSSSHSSSHSSHSSSSSSHSSSHSHSSSHSSSHSSSSSSSSSSHESEHSSESHSSSSSHECOTEGES 


16322 PAGE 42 
3 IS CHECKED 
TST11: SCOPE 
“OV sSTACK,SP 
MOV 611,@8TSTNM 
JSP PC, @eCLDISK 


9GET HEADS TO CYLINDER @ 


JSP PC, @eCHECKT 
MOV OeRPAVEC, ORPVEC 
MOV @eRECALI,-( SP) 
BIS @GOLTE, (SP) 
MOV (SP)+¢,@RHCS! 
WAT 

RHDS1 

RDY 

5600, 

5599, 

JSR PC, @sCLDISK 


sFILL WRITE FROM BUFFER 


JSR 
WRFROM 
4 
14000 
Q 

a 

e 


RO, @8FLHEAD 


sRESET STACK 
sSAVE TEST NUMBER 


sSET PiePHCS1, R2-RHCS?2 
tR3°RHDS1, P4eRHEPR! 
sGIVE RHel! INITIALIZE 
sSETUP UNIT NUBER 


sCHECK DVA,PDY,“OL,DPR,DRY,VV 


sSET RPO4 VECTOR ADDRESS 

:TO °TIME1® IF PeCLOCK IS PRESENT 

2OR TO °TIME2° IF PeCLOCK IS NOT PRESENT 
s°TIME’ WILL ONLY SAVE 

sCURRENT CYLINDER ADDRESS 

sAND LOOK AHEAD REGISTERS 


:GET READY TO MOVE COMMAND 
sGET READY TO SET GO AND 
sENABLE INTERRUPT 

3GO0 WITH 

96 IN RHCS1 FOR RECALIBRATE 
sWITH INTERRUPT ENABLED 


sWAIT FOR ROY BIT TO SET 

sWATT FOR RHDS1 REGISTER 

sWAIT FOR RDY BIT IN RHDS1 REGISTER 
sALLOW $6000 MICRO SECONDS 

sRDY MUST SET BETWEEN 

31@ AND 111990 MICRO SECONDS 


sSET PieRHCS1, R2-RHCS2 
sR3°RHDS1, R4-RHERI 
sGIVE RH-1l INITIALIZE 
sSETUP UNIT NUBER 

WITH HEADER 


sSAVE HEADER DATA IN WRFROM 
sLOCATION WHERE SAVED 
sNUMBER OF WORDS SAVED 
sFIRST DATA WORD 

sSECOND DATA WORD 

sTHIRD DATA WORD 

sFOURTH DATA WORD 


sFILL WRITE FROM BUFFER WITH DATA 


JSR RO, @8CLAREA 
WRFROMe10 

256. 

a) 


sCLEAR 256, WORDS, FROM WRFPROMS10 
sSTARTING FROM WRFROM+10 

3256, WORDS 

sFILL WITH @ 


MAINDEC#11-DERPVeR 
DEPPVA,P11 


2242 
22743 
2244 
2245 
2246 
2247 
2248 
2249 
2250 
2251 
2252 
2253 
2254 
2255 
2256 
2257 
2258 
2259 
2260 
2261 
2262 
2263 
2264 
2265 
2266 
2267 
2268 
2269 
227¢ 
2271 
2272 
2273 
2274 
2275 
2776 
2277 
2278 
2279 
2280 
2281 
2282 
2283 
2284 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 


911240 
0112464 
011246 
011250 
011252 
011254 
011256 


011260 
011264 
911266 
011270 


011272 
011276 
#11300 
011302 


911304 
011310 
011312 
A11313 
011314 
011316 


#11320 
011322 


011324 


011332 


011334 


011336 


011340 


011344 


Ti! 


004037 
003364 
000004 
019000 
000001 
aancoe 
96000 


004037 
003374 
GABOB4 
40001 


094037 
073420 
000404 
000377 


004037 
980000 
009 
000 
177364 
002354 


002332 


004037 


002164 


004476 


004737 


013777 


MACY11 27(732) 
SEARCH COMMAND 


027704 


027730 


027730 


032024 


030220 


030140 


004472 


170606 


18eFER©76 16:22 PAGE 43 SEQ #071 


BYTE 
BYTE 


sFILL WRITE FROM BUFFER WITH NEXT SECTOR HEADEP 


JSR PO, @8FLHEAD tSAVFE HFADEP DATA IN WRFROV+<269,02> 
WRFROM4<260,02> sLOCATION WHERE SAVED 

4 sNUMBER OF WORDS SAVED 

14000 sFIPST PATA WORD 

1 sSECOND DATA WORD 

@ sTHIRD DATA WORD 

@ sFOURTH DATA WORD 

sFILL WRITE FROM BUFFFR WITH WEXT SECTOR DATA 

JSR RO, @sCLAREA sCLEAR 4 WORDS, FROM WRFROM+<264,02> 
WRFROM4<764,02> sSTARTING FROM WRFROMS<264,02> 
4 34 WORDS 

1 sFILL WITH 1 


:CLEAR PEAD INTO BUFFER WITH DATA OTHFR THAN EXPECTED DATA 


JSP RO, @eCLARFA sCLEAR 269, WORDS, FROM REINTO 
REINTO sSTARTING FROM REINTO 

260, 3260, WORDS 

377 sFILL WITH 377 


sTHE WRITE HEADER AND DATA WIIL BE LOADED 


JSR RO, @eRIUN sSETUP TO RUN FOR DATA COMMAND 
@ sCYLINDER @ 
a sSECTOR @ 
a sTRACK 0 
@264,°4 sWORD COUNT (DATA)2264.¢ 
, 234 MEAOER WORDS 
WRFROM 2BUS ADDRESS 


sSTARTING ADDRESS OF DATA 

sBUFFER © WRFROM 
C] 300 NOT INHIBIT BUS ADDRESS INCREMENT 
FMT22 316 BITS PER WORD FORMAT 

3D0 NOT INHIBIT ECC CORRECTION 

300 NOT INHIBIT HEADER COMPARE 
WRIFOR sGET READY TO DO A WRIFOR 

sWRITE HEADER AND DATA WITH 62 IN RHCS1 


:SAVE PEGISTEPS FOR COMPARISON AFTER WRITE HEADER AND DATA 


JSR RO, @8SAVER sSAVE REGISTERS 
RHWC sRHWC IS THE FIRST REGISTER SAVED 
SAVERE sSTARTING ADDRES OF WHERE 
THE REGISTERS ARE SAVED 
18, sNUMBFR OF REGISTERS 
2*SAVED s 18, 
JSR PC, @8CHECKT sCHECK DVA,RDY,MOL,DPR,DRY,VV 
MOV @SRP4VEC,@RPVEC 3:SET RP®@4 VECTOR ADDRESS 


sTO *TIME1® IF PeCLOCK IS PRESENT 





MATNDEC 11 -NERPV-B 
DERPVB P11 


2796 
2299 
2300 
2301 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
23272 
2323 
2324 
2325 
2326 
2327 
2328 
2329 
2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2338 
2339 
2340 
2341 
234? 
2343 
2344 
2345 
2346 
2347 
2348 
2349 
2350 
2351 
2352 
2353 


#11352 
011356 


#11362 


#11366 
011370 


411372 
011374 
011376 
#11400 
011402 


011404 
011410 
011414 
011420 


011422 
0114246 
011430 
011434 


911436 
011442 
011446 


011450 
411452 
011456 
011462 


011464 


911464 
011470 
011472 
a11474 
#1150@ 
411502 
011504 
011510 
011512 


Til 


013746 
052716 


012677 


104420 
092172 
608200 
91614 
001507 


013746 
052716 
011637 
922600 


@01495 
010037 
010137 
104021 


012746 
011637 
022605 


001405 
010537 
010337 
194963 


004037 
002164 
900000 
004037 
092166 
03404 
004937 
002176 
000002 


MACY11 277(732) 
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002332 
90101 


170604 


002332 
004101 
001124 


001126 
004464 


410520 
001124 


001126 
004464 


027762 


027762 


027762 


1feFER<76 16272 PAGE 44 


6783 


sOR TO °TIME2° TF PeCLOCK IS NOT PRESENT 
s°TIME’ WILL ONLY SAVE 

sCURRENT CYLINDER ADDRESS 

sAND LOOK AHEAD REGISTERS 


MOV @SWRIFOR,°(SP) sGET PEADY TO MOVE COMMAND 

BIS sGOLIE,(SP) 3GET READY TO SET GO AND 
sENABLE INTFRRUPT 

MOV (SP)¢,@PHCS1 360 WITH 


362 IN RHCS1 FOR WRITE HEADER AND DATA 
sWITH INTERRUPT ENABLED 

MOV @R1,RO sSAVE RHCS1 DURING ABOVE OPERATION 

MOV @R3,R5 sSAVE RHDS1 DURING ABOVE OPERATION 


sONF RFVOLUTION#S1667@ MICRO SEC, OWE SECTOR = 76@ MICRO SEC 


WAT sWAIT FOR RDY BIT TO SET 

RHCSi sWAIT FOR RHCS1 REGISTER 

RDY sWAIT FOR RDY BIT IN RHCS1 REGISTER 
908. sALLOW 90868 “ICRO SECONDS 

639, sROY MUST SET BETWEEN 


1690 AND 17470 MICRO SECONDS 
sCOMPAPE CONTENTS OF PHCS1 AND RHDS1 ALREADY SAVED IN 
sR@ AND RS IMMEDIATELY AFTER GO 


MOV @OWRIFOR,-(SP) sSAVE COMMAND 

BIS @IFEIDVA!IGO,.(SP) s INCLUDE IELDVA!CGO 

MOV (SP),@8s8GDDAT sSAVE FOR PRINTOUT 

cmp (SP)¢,R9 sDURING ABOVE OPERATION OWLY TIEIDVA!GO 
sAND COMMAND SHOULD BE SET 

BEQ 678 28RANCH IF GOOD 

“ov RO, @8SBNDAT #BAO DATA 

MOV Ri, @eREGADR sFAILING REGISTER RHCS1 

ERROR 21 gDURING ABOVE OPERATION ONLY 
sCOMMAND AND IELDVAIGO SHOULD BE SET 

MOV @MOLIDPR!IVV,-(SP) 2SAVE BITS SET DURING OPERATION IN RHDSi 

MOV (SP), @e8$GDDAT SAVE FOR PRINTOUT 

cue (SP)¢,R5 sOURING ABOVE OPERATION ONLY “OLIDPRIVV 
sSHOULD BE SET 

REQ 698 BRANCH IF GOOD 

MOV PS,@89SRBDDAT 2BAD DATA 

MOV R3,@e8REGADR sFAILING REGISTER RHDSi 

ERROR 63 sDURING ABOVE OPERATION ONLY 


sMOLIDPRIVV SHOULD BE SET 


sNOW CHANGE SAVE REGISTERS TO EXPECTED VALUES 


JSR RO, @OFILLRE s“OV @ INTO SAVED RHWC 

RHWC sSAVED REGISTER TO CHANGE 

e sDATA 

JSR PO, @eFILLRE 2MOV WRFROM¢<268,.02> INTO SAVED RHBA 
PHBA #SAVED REGISTER TO CHANGE 
WRFROM4<268,e2> 2DATA 

JSR RO, @eFILLRE 2“OV 2 INTO SAVED RHDST 

RHDST sSAVED REGISTER TO CHANGE 

2 sDATA 


SEQ #072 


MAINDEC©11°DFERPVeB 


DERPVR P11 


2354 
2355 
2356 
2357 
2358 
2359 
2369 
2361 
2362 
2363 
2364 
2365 
2366 
2367 
2368 
2369 
2379 
2371 
2372 
2373 
2374 
2375 
2376 
2377 
2378 
2379 
2380 
2361 
2382 
2383 
2384 
2385 
2386 
2387 
23868 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396 
2397 
2398 
2399 
2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 


011514 


411520 
#11522 
011524 
011526 
011530 


011532 
#11534 


11536 
A11536 


011542 
011546 
011550 
011551 
011552 
011554 


011556 
0115690 


011562 


011564 
011570 


Til 


004037 


004476 
902242 
000922 
#11532 
011536 


104027 
000287 


604737 


004937 
990000 
aaa 
009 
177770 
003420 


040000 
014900 


004037 
002164 


MACY11 27(732) 
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031040 


030060 


1R8eFERo 76 


oPYTE 
eBYTE 





SEQ 0073 


16:72 PAGE 45 


sNOW COMPAPF PEGISTERS PEFORF wRITE HEADER AND DATA 
sWITH REGISTERS AFTER COMMAND 


JSP RA, @8COMREG sCOMPARE SAVED REGISTEPS WITH 
sPRESFNT VALUE 
SAVERF 3GOOD DATA SAVED IN °SAVERE’ 
we sTEST DATA STARTING FROM °RHWC’ 
14, 218, REGISTERS TO BE COMPARED 
is sRETUPN TO 18 ON ERROR 
2s sRETUPN TO 26 ON NO ERROR 
FRPOR 27 sWRITE HEADER AND DATA 
RTS pc :CAUSED IMPROPER REGISTFP 
s CHANGE 
3GO0OD DATA GIVES WHAT SHOULD 
sRE TRERE 


sRECEIVED DATA GIVES WHAT 
sWAS THERE AFTER COMMAND 


sNOW A SEARCH COMMAND WILL BE GIVEN 

sBUT BEFORE THAT ALL POSSIBLE REGISTERS 

sWILL BE FILLED FOR THE READ HEADER AND DATA SECTOR 1 
3AS THERE WILL NOT BE MUCH TIME BETWEEN THE 
sCOMPLETION OF THE SEARCH AND THE SECTOR 1 COMING, 


sFILL FOR THE READ HEADER AND DATA COMMAND WHICH WILL NOT 
sBE EXECUTED TILL AFTER THE SFAPRCH 

sTHE SEARCH WILL ONLY LEAVF RHCS1 AND RHDST 

sCHANGED ALL THE REST WILL RE UNCHANGED 


JSR PC, @sCLDISK sSET RieRHCS1, R2-RHCS2 
SR3°RHDS1, R4&-RHERI 
sGIVE RHe11 INITIALIZE 
sSETUP UNIT NUBER 
JSR RO, @sRUN sSETUP TO RUN FOR DATA COMMAND 
0 sCYLINDER @ 
@ sSECTOR @ 
Qa sTRACK @ 
8, sWORD COUNT s 6, 
REINTO sB8US ADDRESS 


sSTARTING ADDRESS OF DATA 
sRUFFER = REINTO 
® 2D0 NOT INHIBIT BUS ADDRESS INCREMENT 


ECLLFT22 316 BITS PER WORD FORMAT 
s INHIBIT ECC CORRECTION 
200 NOT INHIBIT HEADER COMPARE 
SERCH 3GET READY TO DO A SERCH 


sSEARCH WITH 30 IN RHCS1 


2SAVE REGISTERS FOR COMPARISON NOT AFTER THE 

sSEARCH COMMAND BUT AFTER THE READ HEADER AND DATA 

JSR RO, @6SAVER sSAVE REGISTERS 

RHWC sRHWC IS THE FIRST REGISTER SAVED 


2 ee lcd 


MAINDEC $11 -DERPV-B 
DEPPVB.P11 


2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
242A 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 
2440 
2441 
2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2469 
2401 
246? 
2463 
2464 
2465 


011572 
011574 


11576 
011692 
011606 
011612 


011620 
011626 


011632 
#11636 
011642 


011646 
#11650 
911652 
011654 
011656 


011660 


911666 


011674 


011702 


011710 
011712 
011714 


Til 
04476 


013746 
$2716 
012637 
012737 


012777 
004737 


013746 
@52716 
012677 


104420 
002214 
090200 
001614 
A01507 


012767 


013777 
013777 


013777 


104420 
002172 
090200 


MACY11 27(732) 


SEARCH COMMAND 


092336 
O08101 
094626 
000A 


011660 
030140 


002322 
000101 


170324 


004634 
094472 


004626 


094634 


170332 


166110 783 


170302 
170256 


170262 


18°FEB°76 16222 PAGE 46 


SAVERF sSTARTING ADDRES OF WHERE 
sTHE REGISTERS APE SAVED 
14, sNUMBER OF PEGISTERS 


sSAVED @ 16, 


sNOW SAVE VALUES FOR PHCS! AND PHDST WHICH 
sWILL CHANGE AFTER THE SEARCH 


MOV @eREFOR, -(SP) sSAVE READ HEADER AND DATA 

BIS eTE!G0,(SP) s INTERRUPT ENABLE AND GO 

MOV (SP)o,@eTMPA sSAVE IN R@ FOR FHCSI 

MOV 61,@eTMPS sSAVE TRACK @ SECTOR 1 FOR PHDST 


sTHE INTERRUPT VECTOR WILL BE SET TO GO TO 26 
sAFTER THE SEARCH 


MOV 678,@RPVEC sSET INTERRUPT VECTOR TO 28 

JSR PC, @sCHECKT sCHECK DVA,RDY,MOL,DPR,DRY,VV 

MOV @8SERCH,°(SP) sGET READY TO MOVE COMMAND 

BIS eGOLIE,(SP) sGET READY TO SET GO AND 
sENABLE INTERRUPT 

“OV (SP)o,@RHCS1 3G0 WITH 


sWITH INTERRUPT ENABLED 
sTIME IS NOT CRITICAL THIS ONLY WAITS FOR SEARCH COMPLETION 


WAT sWAIT FOR DPY BIT TO SET 

RHDS1 sWAIT FOR RHDS1 PEGISTER 

DRY sWAIT FOR DRY BIT IN RHDS1 REGISTER 
906, sALLOW 908@ MICRO SECONDS 

639, sORY MUST SET BETWEEN 


3690 AND 1747@ MICRO SECONDS 


MOV 60,PS sSET PROSESSOR STATUS TO 
sPRIORITY @ IN CASE IT WAS 
sTAKEN OUT OF WAT ROUTINE 
sBEFORE RTI 


MOV @sTMPS,@RHDST sSET DESIRED SECTOR/TRACK 
sREGISTER TO SECTOR 1,TRACK @ 
MOV @GRP4VEC,@RPVEC 3SET RPO4 VECTOR ADDRESS 


sTO °TIME1® IF PeCLOCK IS PRESENT 

sOR TO °TIME2° IF PeCLOCK IS NOT PRESENT 
s°TIME® WILL ONLY SAVE 

sCURRENT CYLINDER ADDRESS 

sAND LOOK AHEAD REGISTERS 


MOV @8TMPO,@RHCS1I sFILL RHCS1 WITH READ COMMAND 
sTOGETHER WITH INTERRUPT ENABLE 
sAND GO 


sTIME ALLOWED HERE IS CRITICAL AWY TIME ERROR 
s INDICATES WRONG SEARCH IN THE SEARCH COMMAND 


WAT sWAIT FOR RDY BIT TO SET 
RHCS1 sWAIT FOR RHCS1 REGISTER 
RDY sWAIT FOR RDY BIT IN RHCS1 REGISTER 


SEQ 9074 


MAINDFCo11-DERPV-B 
DERPVA,P11 Til 


2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
24684 
24861 
2482 
2483 
2484 
2465 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 
2501 
2502 
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512 
2513 
2514 
2515 
2516 
2517 
2518 
2519 
2520 
2521 


011716 0600225 


A11720 800082 . 


011722 
011726 
911730 
011732 
011734 
011736 
011740 
#11742 
011746 
011750 
011752 


004937 
902354 
000004 
910000 
000001 
000000 
800000 
094037 
902364 
000004 
000001 


004037 
002164 
090000 
004037 
002166 
003440 
604037 
002172 
004272 
004037 
002176 
000002 


011754 
011760 
011762 
011764 
011770 
011772 
11774 
612000 
012002 
012004 
012010 
412012 


912014 0804037 
004476 
002242 
000622 
012032 
012036 
104031 
900207 


912020 
012922 
012024 
012026 
012930 
212032 
012034 


012036 


912036 904037 


macYi? 27(732) 
SEARCH COMMAND 


027704 


027730 


027762 
027762 
027762 


027762 


032070 


18°FEP<76 


483 


16322 PAGE 47 


149, 
26 


SEQ #075 


sALLOW 1490 MICRO SECONDS 
sRDY “UST SET BETWEEN 
31470 AND 1510 MICRO SECONDS 


sWRITF FROM BUFFER WILL BF FILLED WITH EXPECTED DATA 


JSP PA, @OFLHEAD 
WRFROM 


4 

19900 

1 

‘J 

a 

JSF RO, @SCLAPREA 
WRFROMe<¢482> 

4 

4 


sSAVE HEADER DATA IN WRFROM 

LOCATION WHERE SAVED 

sNUMBER OF WORDS SAVED 

sFIRST DATA WORD 

sSECOND DATA WORD 

THIRD DATA WORD 

sFOURTH DATA WORD 

sCLEAR 4 WORDS, FROM WRFROMe<482> 
sSTARTING FROM WRFROMe<402> 

24 WORDS 

sPILL WITH 1 


sCHANGE SAVFD REGISTERS TO EXPECTED VALUES 


JSR RO, @eFILLRE 
RHWC 

@ 

JSR RO, @eFILLRE 
PHBA 

REINTO¢<8 ,@2> 

JSR RO, @sFILLRE 
RHCS1 

4272 

JSR P?@, QF ILLRE 
RHDST 

2 


s4OV @ INTO SAVED RHWC 
sSAVED REGISTER TO CHANGE 
sDATA 
sMOV REINTO0<8,02> INTO SAVED RHBA 
sSAVED REGISTER TO CHANGE 
sDATA : 
+¥OV 4272 INTO SAVED RHCS1 
sSAVED REGISTER TO CHANGE 
sDATA 
2™OV 2 INTO SAVED RHDST 
sSAVED REGISTER TO CHANGE 
sDATA 


sCOMPARE REGISTER BEFORE READ HEADER AND DATA 
sWITH REGISTERS AFTER COMMAND 


JSR RO, @8COMREG 


SAVERE 

we 

18. 

38 

4s 

ERROR 31 
RTS pc 


sCOMPARE SAVED REGISTERS WITH 
sPRFESENT VALUE 

:GOOD DATA SAVED IN “SAVERE’ 
sTEST DATA STARTING FROM °RHWC? 
318, REGISTERS TO BE COMPARED 
sRETURN TO 38 ON ERROR 
sRETURN TO 48 ON NO ERROR 
sREAD HEADER AND DATA CAUSED 
sIMPROPER REGISTER CHANGE 
sGOOD DATA GIVES WHAT SHOULD 
sBE THERE 

sRECEIVED DATA GIVES WHAT WAS 
sTHERE AFTER COMMAND 


sNOW READ INTO BUFFER WILL BE CHECKED TO SEE 


sTHE READ WAS GOOD 


JSR RO, @8COMPAR 


sCOMPARE TWO BLOCKS OF MEMORY 


ee mmm meneame 





MATNDECo11 -DERPV<-B 
DERPVS P11 


2522 
2523 
2524 
2525 
2526 
2527 
2528 
2529 
2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 
2538 
2539 
2540 
2541 
2542 
2543 
2544 
7545 
2546 
2547 
2548 
2549 
2550 
2551 
2552 
2553 
2554 
2555 
2556 
2557 
2558 
2559 
2560 
2561 
2562 
2563 
2564 
2565 
2566 
2567 
2568 
2569 
2570 
2571 
2572 
2573 
2574 
2575 
2576 
2577 


—eene a  T T T TTTT TTTT 


8127042 
012044 
012946 
012050 
012952 


012084 
012056 


012060 
012962 
012066 


012074 


#12100 
012104 


012112 
012116 


012120 
012124 


Til 

092354 
003420 
Onee1a 


012054 
012960 


194053 
000207 


000004 
012706 
012737 


004737 


004737 
013777 


004037 
000012 


013746 
052716 


012677 


MACY11 270732) 


SFARCH COMMAND 


030060 


030140 
004472 


002340 
090101 


170036 


004470 


170046 


18°FER°76 16227 PAGE 48 SEQ 0076 


weFROM 1G00D DATA STAPTS FROM WRFROM 
PEINTO TEST DATA STARTS FROM REINTO 
8. 28, WORDS TO BE COMPARED 
58 sPETUPN TO S$ ON ERROR 
68 RETURN TO 68 ON NO FRROP 
S$: ERROR $3 READ HEADER AND DATA 
PTS ec sAFTER A SEARCH CAUSED 
3AN ERROR 


FESSSSHSHSSSISFSEHSSHSHSSSSHSHSHSHHSHHSHSSHSHSSSSHHSSHHSHHHSSHEHHHHHESHOOOS 


s®TEST 12 SEARCH COMMAND 

30 THE ONLY THING WEW IN THIS TEST IS AN IMPLIED SEEK 
hd IN A SEARCH COMMAND 

38 THF HEADS START FROM CYLINDER 1@ BY A SEEK 

78 COMMAND THEN A SEARCH SECTOP @ TRACK @ CYLINDER @ 
thd IS GIVEN 

3° THEN A PEAD COMMAND IS GIVEN FOR 

$e CYLINDER ®, TRACK @, SECTOR 1 

38 TIME FOR THE READ IS THE ONLY INDICATOR 

70 OF CORRECT SEARCH 


FOVSSHSHSLHSSSOHSHHOSSSOSSSHSSOSOSHSSOSSSSSESESESSHOOSECSCHSEOOS 
TSTi2s SCOPE 


MOV eSTACK,SP sRESET STACK 
MOV 612,08TSTNM sSAVE TEST NUMBER 
JSR PC, @eCLDISK sSET PieRHCS1, R2-RHCS2 


sR3°RHDS1, R4-RHERI 
sGIVE RHe11 INITIALIZE 
sSETUP UNIT NUBER 


sGET THF HEADS TO CYLINDER 10 
JSR PC, @eCHECKT sCHECK DVA,RDY,MOL,DPR,DORY.VV 


MoV @ORP4VEC,@RPVEC :SET RPO4 VECTOR ADDRESS 
sTO °TIME1’ IF PeCLOCK IS PRESENT 
sOR TO °TIME2° IF P-CLOCK IS NOT PRESENT 
s°TIME’ WILL ONLY SAVE 
sCURRENT CYLINDER ADDRESS 
sAND LOOK AHEAD REGISTERS 


JSR RO, @8SEEKCY sSEEK FOR 

10, sCYLINDER 10, 

MOV @8SEECOM,°(SP) s:GET READY TO MOVE COMMAND 

BIS sGO!TE, (SP) sGET READY TO SET GO AND 
sENABLE INTERRUPT 

MOV (SP)*,@RHCS1 :GO WITH 


34 IN RHCS1 FOR SEEK 
;WITH INTERRUPT ENABLED 


MAINDECe11-DERPV<-R 
DERPVA P11 


2578 
2579 
2580 
2581 
2582 
2583 
25864 
2585 
2586 
2587 
2586 
2589 
2590 
2591 
2592 
2593 
2594 
25°95 
2556 
2597 
259" 
2596 
260¢ 
2601 
2602 
2603 
2604 
2605 
2606 
2607 
2608 
2609 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 


012134 
912136 
012140 
912142 
012144 


012146 


#12152 
012156 
012160 
012161 
012162 
012164 


012166 
012170 


012172 


012174 
012200 
012202 


012204 


012206 
012212 
012220 
012224 
012226 
012227 
012230 


012234 
012240 


T12 


194420 
002214 
400209 
015530 


‘OA0843 


004737 


004037 
070000 
000 
060 
177770 
003420 


008000 
014900 


604037 
002164 
004476 


004737 
012777 
004037 
900000 

000 

000 
013700 


052700 
012705 


MACY11 27(732) 
SEARCH COMMAND 


032024 


030140 
012376 
0309010 


167740 


1feFEKRS76 16322 PAGE 49 SEQ 9077 


BYTE 
BYTE 


BYTE 
BYTE 


WAT WAIT FOR DRY BIT TO SET 

RHDS1 sWAITT FOR RHDS1 REGISTER 

Dry sWAIT FOR ORY BIT IN RHDS! REGISTER 
7000, sALLOW 70000 “YICRO SECONDS 

35. ORY YVUST SET BETWEEN 


16965@ AND 76359 “ICRO SECONDS 
:FILL REGISTEPS FOR READ HEADER AND DATA TO BE DONE AFTER SEARCH 


JSP PC, @SCLDISK sSET RieRHCS1, P2°-RHCS2 
sR3°RHDS1, R4-RHERI 
sGIVE RH-11 INITIALIZE 
sSETUP UNIT NUBER 


JSR RO, @eRUN sSETUP TO RUN FOR DATA COMMAND 
0 sCYLINDER @ 

t sSECTOR 6 

a sTRACK @ 

-6. sWORD COUNT 2 6, 

REINTO sBUS ADDRESS 


sSTARTING ADDRESS OF DATA 
sSUFFER = REINTO 
a sD0 NOT INHIBIT BUS ADDRESS INCREMENT 
ECILFMT22 216 BITS PER WORD FORMAT 
sINHIBIT ECC CORRECTION 
3D0 NOT INHIBIT HEADER COMPARE 
SERCH 3GET READY TO DO A SERCH 
sSEARCH WITH 30 IN RHCS1 


sSAVE REGISTERS FOR COMPARISON AFTER SEARCH 
sAND READ HEADER AND DATA 


JSR RO, @OSAVER sSAVE REGISTERS 
RHWC sRHWC IS THE FIRST REGISTER SAVED 
SAVERE SSTARTING ADORES OF WHERE 
sTHE REGISTERS ARE SAVED 
18, sNUMBER OF REGISTERS 


sSAVED = 18, 
sNOW GIVE THE SEARCH COMMAND 


JSR PC, @SCHECKT sCHECK DVA,RDY,MOL,OPR,DRY,VV 
MOV e38,@RPVEC | sINTERRUPT VECTOR SET TO 38 
JSP PO,@8SRCH sSEARCH FOR 
® sCYLINDER @ 
8 sSECTOR @ 
Q sTRACK 0 
MOV OSSERCH, RO sEXPECTED CONTENTS OF RHCS1 

s IMMEDIATELY AFTER GO 
BIS _ODVALRDYLTE!GO,RO sEXPECTED BITS IN RHCS1 
MOV SMOLIDPRIVV,RS ;EXPECTED BITS IN RHDS! 


sIMMEDIATELY AFTER GO 


MAINDEC #11 -DERPV<-B 
DERPVA Pil 


2634 
2635 
2636 
2637 
2638 
2639 
2640 
2641 
2642 
2643 
2644 
2645 
2646 
2647 
2648 
2649 
2650 
2651 
2652 
2653 
2654 
2655 
2656 
2657 
2658 
2659 
26608 
2661 
2662 
2663 
2664 
2665 
2666 
2667 
2668 
2669 
2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 
2678 
2679 
2680 
2681 
2682 
2683 
2684 
2685 
2686 
2687 
2668 
2689 


#122446 
012250 


012254 


012260 
012262 
012264 
012270 
012274 
012300 
012306 


012310 


012312 
012314 
012316 
012322 
012326 
012332 
012340 


012342 
012350 
012356 


012364 
012366 
012370 
012372 
012374 


012376 
012404 
012412 


012420 


T12 


013746 
052716 


012677 


921100 
01413 
011137 
010037 
010137 


012737. 


104921 


021305 
001412 
011337 
010537 
010337 
012737 
104963 


613737 
052737 
012737 


104420 
002214 
000200 
015530 
000043 


012737 
012767 
013777 


013777 


013711 


MACY11 27(732) 
SEARCH COMMAND 


167712 


001126 
001124 
004464 
000340 


001126 
001124 
004464 
000340 


002336 
000101 
070001 


090200 
000600 
004634 


004472 


004626 
004626 
004634 


000036 
165364 
167556 


167532 


16°FEB<76 


MOV 
BIS 


MOV 


CMP 
BEO 
MOV 
“ov 
“ov 
MOV 
ERPOR 


cue 
BEQ 
“OV 
MOV 
MOV 
MOV 
EPROR 


MOV 
BIS 
MOV 


16322 PAGE SO 


@eSERCH,=(SP) 
eGOLTE,(SP) 


(SP)¢,@RHCS1 


sGET PEADY TO MOVE COMMAND 
sGET READY TO SET GO AND 
sENABLE INTERRUPT 

3GO WITH 


' gWITH INTERRUPT ENABLED 


@R1,PA 

1s 

@R1,@8SADDAT 

RO, @8e8GDDAT 

Pi, @S8REGADR 
8340, @88TRAPVECS2 
21 


OR3,R5 

28 

@R3,08SBDDAT 

RS, @6SGDDAT 
R3,@sREGADR 
6340, 08 TRAPVECS2 
63 


OCREFOR, OO TMPO 
9 TE!GO,@eTMPA 
61,@eTMPS 


s1S RHCS1 GOON 

sBRANCH IF GOOD 

sBAD DATA FOR RHCSi 

3GOOD DATA 

sFAILING REGISTER RHCS1i 
sTRAP PPIORITY & 7 

sDUPING SFARCH COMMAND 

sCONTENTS OF RHCS1 WAS 

sNOT AS EXPECTED 

sIF LAST ERROR 21 OCCURRED 

sTHEN DO NOT CHECK RHDS1 

sAS TOO MUCH TIME HAS 

sPASSED 


31S RHDS1 GOOD 
sBRANCH IF GOOD 
sBAD DATA FOR RHDS1 
sGOOD DATA 
sFAILING REGISTER RHDS1 
gTRAP PRIORITY = 7 
sDURING SEARCH COMMAND 
sCONTENTS OF RHDS1 WAS 
sIN CORRECT 


sSAVE 7EAD HEADER AND DATA 
sINCLUDE INTERRUPT ENABLE, GO 
sSAVE TRACK @, SECTOR 1 


sTHIS IS ONLY A WAIT LOOP 


WAT 
RHDS1 
RDY 
7000, 
35. 


MOV 
MOV 
MOV 


MOV 


MOV 


#200, 8 TRAPVECS2 
00,P8 
@sTMPS,@RHDST 


@eRPAVEC, ORPVEC 


GOTMPO, ORI 


sWAIT FOR ROY BIT TO SET 

sWAIT FOR RHDS1 REGISTER 

sWAIT FOR ROY BIT IN RHDS1 REGISTER 
sALLOW 70000 “ICRO SECONDS 

sRDY MUST SET BETWEEN 

369650 AND 70359 MICRO SECONDS 


sTRAP PRIORITY s& 4 
sSET PROSESSOR STATUS TO @ 
sSET DESIRED SECTOR/TRACK 
sREGISTER TO SECTOR 1, TRACK @ 


#SET RPO4 VECTOR ADDRESS 
2TO °TIMEL° IF PeCLOCK IS PRESENT 
sOR TO °TIME2° IF P-CLOCK IS NOT PRESENT 
s°TIME’ WILL ONLY SAVE 
sCURRENT CYLINDER ADDRESS 
sAND LOOK AHEAD REGISTERS 
sFILL RHCS1 WITH READ COMMAND 
sTOGETHER WITH INTERRUPT ENABLE 
sAND GO 


SEQ 0078 


MAINDEC*11°DERPVeR 
DFRPVB,PI1 


2690 
2691 
2692 
2493 
2094 
2695 
2696 
2697 
2698 
2699 
2702 
2701 
2782 
2703 
2704 
2785 
2706 
2707 
2708 
27¢9 
2710 
2711 
2717 
2713 
2714 
2715 
2716 
2717 
2718 
2719 
2720 
2721 
2722 
2723 
2724 
2725 
2726 
2727 
2728 
2729 
2738 
2731 
2732 
2733 
2734 
2735 
2736 
2737 
2738 
2739 
2740 
2741 
2742 
2743 
2744 
2745 


0124372 
012434 
012436 
012449 
012442 


012444 
012450 
012452 
012454 
412456 
712460 
012462 
012464 
01247a 
012472 
012474 


012476 
O12502 
812504 
012506 
912512 
012514 
012516 
012522 
912524 
#12526 
012532 
012534 
012536 
012542 
912544 


012546 


012552 
012554 
012556 
012560 
012562 


012564 


T12 


194429 
002172 
OAA20a 
900225 
AV OAD2 


004037 
002354 
AARABS 
a1anaa 
AvG001 
BAAPCH 
a00000 
904037 
002364 
AAVOAS 
arene 


004037 
002164 
Aaeeoe 
004037 
992166 
003440 
004937 
002172 
094272 
004037 
002176 
090002 
904037 
002226 
BAAPOA 


004037 


004476 
002242 
900022 
012564 
612570 


104031 


MACY11 27(732) 
SEAPCH COMMAND 


A27704 


027730 


027762 


027762 


027762 


027762 


027762 


931040 


1A8eFER©76 16:27 PAGE 51 SEQ #7079 


sTIMFE ALLOWED HERF IS CRITICAL ANY TIVE ERPOR 
sINDICATES WRONG SEARCH IN THE SFARCH COMMAND 


WAT sWAIT FOR RDY BIT TO SET 

PHCS1 sWATT FOR RHCS1 RFGISTEP 

PDY :WAIT FOR RDY BIT IN PHCS1 PEGISTER 
149, sALTL.OW 1498 MICRO SECONDS 

2. sPCY MUST SET BETWEEN 


31470 AND 1514 MICRO SECONDS 


sWRITE FROM RUFFEP WILL BE FILLFD WITH FXPECTED DATA 


JSR RA, @@FLHEAD sSAVE HEADEP DNATA IN WPFROM 

WPFRO4 sLOCATION WHERE SAVFD 

4 sNUMBER OF WORDS SAVED 

1Aape¢ sFIRST DATA WOPD 

1 .$SECOND DATA #ORD 

e sTHTRD DATA WORD 

” sFOURTH DATA WORD 

JSR PA, @8CLAREA sCLEAR 4 WOPNDS, FROM WRFROM+<407> 
WRFPROM4<482> SSTARTING FROM WRFPOMe<402> 
4 ; 24 WORDS : 
i sFILL WITH 1 


sCHANGE SAVED REGISTERS TO EXPECTED VALUES 


JSR RO, @OFILLRF sMOV @ INTO SAVED PHWC 
RHWC 2SAVED REGISTER TO CHANGE 
a sDATA 

JSR RO, @eFILLPE :MOV REINTO¢<8@.°9> INTO SAVED RHBA 
RHBA sSAVED REGISTER TO CHANGE 
REINTO+¢<8 .#7> sDATA 

JSR PO, @aFILLRE 24OV 4272 INTO SAVED RPHCS1 
RHCS1 sSAVED REGISTER TO CHANGE 
4272 sDATA 

JSR RO, O@FILLPE “OV 2 INTO SAVED RHDST 
RHDST sSAVED REGISTER T9 CHARGE 
2 gDATA 

JSR RO, @OFILLRE sMOV @ INTO SAVED RHCC 
RHCC sSAVED REGISTER TO CHANGE 
r sDATA 


sCOMPARF REGISTER BEFORE READ HFADER AND DATA 


- gWITH REGISTERS AFTER COMMAND 


JSR RO, @8COMREG sCOMPARE SAVED REGISTERS WITH 
sPRESENT VALUE 

SAVERE sGOOD DATA SAVED IN °SAVERE’ 

we sTEST DATA STARTING FROM °RHWC® 

18, 318, REGISTERS TO BE COMPARED 

48 sRETURN TO 48 OWN ERROR 

58 * sRETURN TO SS ON NO ERROR 

ERROR 31 sREAD HEADER AND DATA CAUSED 








MAINDEC#11-DEPPVoB 
DERPVB,.P11 


2746 
2747 
2748 
2749 
2780 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2758 
2759 
2760 
2761 
2762 
2763 
2764 
2765 
2766 
2767 
2768 
2769 
277@ 
2771 
277? 
2773 
2774 
2775 
2776 
2777 
2778 
2779 
2780 
2781 
2782 
2783 
2784 
2785 
2786 
2787 
2788 
2789 
2790 
2791 
2792 
2793 
2794 
2795 
2796 
2797 
2798 
2799 
2800 
2801 


eee — rn Le 


012566 


812570 


#12570 
012574 
012576 
912600 
012602 
012604 


012606 
012610 
012612 


T12 
090207 


004037 
002354 
003420 
000010 
012606 
012612 


104053 
800207 


000004 


MACY11 27(732) 1feFER<76 16:22 PAGE $2 


SEARCH COMMAND 


032070 


sTMPROPER REGISTER CHANGE 
3G00D DATA GIVES WHAT SHOULD 
sBE THERE 

sRECEIVED DATA GIVES WHAT WAS 
sTHERFE AFTER COMMAND 


RTS pc 


sNOW READ INTO BUFFER WILL BE CHECKED TO SEE 
sTHE PEAD WAS GOOD 


583 
JSP RO, @8COMPAR sCOMPARF TWO BLOCKS OF MEMORY 
WRFROM :GOOD DATA STARTS FROM WRFROM 
REINTO sTEST DATA STARTS FROM REINTO 
8. 28, WORDS TO BE COMPARED 
68 sRETURN TO 68 ON ERROR 
78 sRETUPN TO 78 ON NO ERROR 
683 ERROR 53 sREAD HEADER AND DATA 
RTS pc sAFTER A SEARCH CAUSED 
sAN ERROR 
783 
30 THE NEXT TEST REMOVES SECTOR 1 ON CYLINDER @ 
Pe TRACK@ AND PUTS SECTOR @ THERE, 
38 HENCE THE PACK IS UNFORMATTED FROM 
34 THIS POINT ON TO THE TEST WHEN SECTOR 
3@ 1 IS REPLACED, IF TESTING IS STOPPED WITH 
38 AN ER2OR IN THE SECTION OF THF PROGRAM BETWEEN 
hd THIS AND WHEN SECTOR 1 IS REPLACED THEN THE 
bed DISK BEING USED MAY HAVE BEEN UNFORMATTED 
36 IF THE LAST PASS OF THIS PROGRAM GIVES 
34 NO ERRORS IN THIS SECTION THEN THE DISK 
38 MAY NOT HAVE BEEN UNFORMATTED, HOWEVER IT 
hd IS RECOMMENDED THAT AFTER A PASS OF THIS 
3@ PROGRAM THE DISK BE REFORMATTED, 


s*TEST 13 HEADER COMPARE ERROR = RHERI BIT 87 

hed WRITE HEADER AND DATA IS USED TO REMOVE SECTOR 1 
38 AND PUT SECTOR @ THERE ON CYLINDER 0 

3° THEN A READ DATA IS GIVEN FOR SECTOR 

3@ HCEe BIT #7 IN RHER1 SHOULD SET. 

3% ALL REGISTERS ARE CHECKED 

38 ANY DATA READ IS CHECKED 


PF PORSSOSEFEOESHSSSHESSOOHSOSSOSOHEHSHSOOSSSCHOSSOOORHSCHSORECEES 
TST13: SCOPE 
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2802 
2803 
2804 
2805 
2806 
2807 
2808 
2809 
2810 
2811 
2812 
2813 
2814 
2815 
2816 
2817 
2818 
2819 
2820 
2821 
2622 
2823 
2824 
2825 
2826 
2827 
2828 
2829 
2830 
2831 
2832 
2833 
2834 
2835 
2836 
2837 
2838 
2839 
2840 
2841 


2842 


2843 
2844 
2845 
2846 
2847 
2846 
2849 
285@ 
2851 
2852 
2853 
2854 
2855 
2856 
2857 


sn  O LLL 


912614 
012620 


012626 


012632 
#12636 
012640 
012642 
012644 
012646 
012650 
@12652 


012654 
012660 
012662 
012664 


012666 
912672 
12674 
012675 
012676 
012700 


912762 
912704 


012796 


012710 
012714 
012716 
012720 
012722 


012726 


T13 


A12706 
012737 


004737 


004037 
002354 
000005 
010000 
8900000 
900000 
000000 
000001 


004037 
003420 
000400 
177777 


004037 
600000 
001 
800 
177773 
092354 


094037 
002164 
004476 
000021 
004737 


013777 
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00100¢e 
000913 


027704 


027730 


032024 


039140 
004472 


004470 


167224 
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BYTE 
eRYTE 


MOV @STACK,SP sPRESET STACK 
MOV 813,@@TSTNM sSAVE TFST NUMBER 
JSP PC, @s8CLDISK sSET RieRHCS1, R2°RHCS2 


sR23-RHDS1, R4-RHERI 
sGIVE RHeif INITIALIZE 
sSETUP UNTT NUBER 


sFILL WRITE FROM BUFFER WITH HEADER 


JSF RO, @@FLHEAN sSAVE HEADER DATA IN WRFROM 
WRFROM sLOCATION WHERE SAVED 

5 sNUMBER OF WORDS SAVED 
19900 sFIRST DATA WORD 

a sSECOND DATA WORD 

® sTHIRD DATA WORD 

a sFOURTH DATA WORD 

1 sFIFTH DATA WORD 


sFILL READ INTO BUFFER WITH ALL OWES 


JSP RA, @8CLAREA sCLEAR 256, WORDS, FROM REINTO 
REINTO sSTARTING FROM REINTO 

256. 3256. WORDS 

#1 sFILL WITH 1 


sWPITE HEADER AND DATA IS LOADED 


JSR RO, @8RUN sSETUP TO RUN FOR DATA COMMAND 
0. sCYLINDER 6, 
i. sSECTOR 1. 
0. sTRACK @, 
e104 sWORD COUNT (DATA)#1¢ 
34 HEADER WORDS 
WRFROM sBUS ADDRESS 


STARTING ADDRESS OF DATA 

sBUFFER s WRFROM 
r) 200 NOT INHIBIT BUS ADDRESS INCREMENT 
FMT22 216 BITS PER WORD FORMAT 

300 NOT INHIBIT ECC CORRECTION 

300 NOT INHIBIT HEADER COMPARE 
WRIFOP sGET READY TO DO A WRIFOR 

sWRITE HEADER AND DATA WITH 62 IN RHCS1 


sNOW SAVE REGISTERS FOR COMPARISON AFTER WRITE 


JSR RO, @#SAVER sSAVE REGISTERS 
RHWC sRHWC IS THE FIRST REGISTER SAVED 
SAVERE sSTARTING ADDRES OF WHERE 
sTHE REGISTERS ARE SAVED 
17, sNUMBER OF REGISTERS 
sSAVED = 17, 
JSR PC, @eCHECKT sCHECK DVA,RDY,MOL,DPR,DRY,VV 
MOV @ORP4VEC,@RPVEC :SET RP®4 VECTOR ADDRESS 
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DERPVA P11 T13 HEADER COMPARE FRROR © RHER! RIT 87 
2658 :TO °TIME1° IF PeCLOCK IS PRESENT 
2859 sOR TO °TIME2® IF PeCLOCK IS NOT PRESENT 
2860 s°TIMF® WILL ONLY SAVE 
28661 sCURRENT CYLINDER ADDPESS 
2862 sAND LOOK AHEAD REGISTERS 
2863 
2864 812734 613746 0802332 MOV @eWRIFOR,©(SP) sGET READY TO MOVE COMMAND 
2865 612740 452716 600101 BIS sGOLIE, (SP) 1GET PEADY TO SET GO AND 
2866 sENABLE INTERRUPT 
2967 812744 612677 167222 MOV (SP)¢,@PHCS! 360 WITH 
2868 362 IN RHCS! FOR WRITE HEADER AND DATA 
2869 sWITH INTERRUPT ENABLED 
2872 sTIMF IS NOT CRITICAL 
2871 
2872 12750 104420 WAT sWATT FOR ROY BIT TO SET 
2873 612752 602172 RHCS1 sWAIT FOR RHCS1 REGISTER 
2874 812754 670290 RDY sWAIT FOR RDY BIT IN RHCS1 PEGISTER 
2875 012756 664704 2500, sALLOW 25000 “MICRO SECONDS 
2876 812760 604704 2500, sRDY MUST SET BETWEEN 
2877 20@ AND S$@00@ MICRO SECONDS 
2878 sNOW CHANGE SAVFD REGISTERS TO EXPECTED VALUE 
2879 012762 004037 0627762 JSR RO, @sFILLRE sMOV @ INTO SAVED RHWC 
28680 012766 972164 RHWC sSAVED PEGISTER TO CHANGE 
2881 012770 #99000 ) sDATA 
2882 012772 604037 627762 JSR RO, @sFILLPF sMOV WRFROMe<Se#2> INTO SAVED RHBA 
2863 012776 002166 RHBA sSAVED REGISTER TO CHANGE 
2884 013900 692366 WRF ROMe<5e@2> sDATA 
2865 013002 004937 027762 JSR PA, OOF ILLRE sMOV 2 INTO SAVED PHDST 
2886 013006 602176 RHDST sSAVED REGISTER TO CHANGE 
26887 813010 8969962 . sDATA 
2988 sCOMPARFE ALL REGISTERS 
2889 
2899 #13012 004037 031040 JSR RA, @8COMREG sCOPPARE SAVED REGISTERS WITH 
2891 sPRESENT VALUE 
2892 013016 004476 SAVERE 3GOOD DATA SAVED IN °SAVERE’ 
2893 613020 002242 we sTEST DATA STARTING FROM “RHWC? 
2894 613022 06009021 17. 317, REGISTERS TO BE COMPARED 
28995 813024 613030 is sRETURN TO 18 ON ERROR 
2896 013926 013034 28 sRETURN TO 28 ON NO ERROR 
2897 013030 104027 183 ERROR 27 sWRITING HEADER AND DATA CAUSED 
2898 613032 600207 PTS pc 
2899 sTIMPROPER REGISTEP CHANGE 
2900 sGOOD DATA GIVES WHAT 
2901 sSHOULD BE THERE 
2902 sRECEIVED DATA GIVES WHAT 
2903 sWAS THERE AFTER WRITE 
2904 
2905 sNOW A READ DATA WILL BE DONE ON CYLINDERS@, SECTORS1, 
2906 sTRACKSO 
2907 sFILL WRITE FROM BUFFER WITH FXPECTED DATA 
2908 013034 283 
2909 
2910 013034 604737 639960 JSR PC, @eCLDISK sSET RieRHCS1, R2-RHCS2 
2911 sR3-RHDS1, R4-RHERI 
2912 sGIVE RHe-i1 INITIALIZE 
2913 ; sSETUP UNIT NUBER 


| en ner 
—_— Ss SSS t—t 
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2914 813940 094637 
2915 013044 602354 
2916 013046 000400 
2917 913050 177777 
2918 
2919 
2920 
2921 613952 694037 
2922 813956 890000 
2923 013060 ae 
2924 013061 800 
2925 013062 177777 
2926 A13964 0934223 
2927 
2928 
2929 013066 #80000 
2930 013070 619700 
2931 
2932 
2933 013072 0602334 
2934 
2935 
2936 
2937 813074 604037 
2938 813100 002164 
2939 013102 004476 
2940 
2941 013104 090022 
2942 
2943 613196 004737 
2944 
2945 013112 013777 
2946 
2947 
2948 
2949 
2959 
2951 
2952 0613120 013746 
2953 013124 052716 
2954 
2955 13130 012677 
2956 
2957 
2958 
2959 
2960 013134 104420 
2961 013136 002172 
2962 013140 090200 
2963 013142 010119 
2964 013144 691562 
2965 
2966 
2967 
2968 013146 004037 
2969 13152 002214 


LL 
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032024 


030220 


030140 
004472 


167036 


030732 


167040 
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BYTE 
BYTE 


JSP RA, @eCLAREA sCLFAP 256, WORDS, FROM WRFROM 
WRFROM sSTARTING FROM WRFROM 

256, 3256, WORDS 

bad | sFILL WITH -1 


sREAD COMMAND IS LOADED 


JSP RA, @eRUN sSETUP TO RUN FOR DATA COMMAND 
a sCYLINDER 6 
1. sSECTOR 1, 
0 sTRACK @ 
| sWORD COUNT = 1 
REINTO sRUS ADDRESS 
sSTARTING ADDRESS OF DATA 
sRUFFER @ REINTO 
@ :D0 NOT INHIBIT BUS ADDRESS INCREMENT 
FMT22 316 BITS PER WORD FORMAT 


300 NOT INHIBIT ECC CORRECTION 
2D0 NOT INHIBIT HEADER CO*PARF 
READAT 3GET READY TO DO A READAT 
gREAD DATA WITH 70 IN RHCSI 


:SAVE PFGISTERS FOR COMPARISON AFTER READ DATA 


JSP RO, @eSAVER sSAVE REGISTERS 
RHWC sRHWC IS THE FIRST REGISTER SAVED 
SAVERF. sSTARTING ADDRES OF WHERE 
! sTHE REGISTERS ARE SAVED 
ia, sNUMBER OF REGISTERS 
JSR PC, @SCHECKT sCHECK DVA,RDY,MOL,DPR,DRY,VV 
MOV @ORPA4VEC,@RPVEC 3:SET RP@4 VECTOR ADDRESS 


3TO °TIME1° IF PeCLOCK IS PRESENT 

:OR TO °“TIME2° IF P-CLOCK IS NOT PRESENT 
s°TIME’ WILL ONLY SAVE 

sCURRENT CYLINDER ADDRESS 

sAND LOOK AHEAD REGISTERS 


MOV @SREADAT,°(SP) sGET READY TO MOVE COMMAND 

BIS eGOLIE,(SP) GET READY TO SET GO AND 
“gENABLE INTERRUPT 

MOV (SP)¢,@RHCS1 :GO WITH 


970 IN RHCS1 FOR READ DATA 
sWITH INTERRUPT ENABLED 
sTIME IS NOT CRITICAL 


WAT sWAIT FOR RDY BIT TO SET 

RHCS1 sWAIT FOR RHCS1 REGISTER 

RDY sWAIT FOR RDY BIT IN RHCS!1 REGISTER 
4168, sALLOW 41680 MICRO SECONDS 

634, sRDY MUST SET BETWEEN 


333340 AND 50020 “ICRO SECONDS 
sNOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 


JSR PO, @8CHREG sCHANGE BITS IN SAVED REGISTER 
RHDS!1 sCHANGE RHDS1 REGISTER 
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2970 

2971 013154 800002 32 BIT/RITS TO RE CHANGED 

2972 013156 640001 sNEW VALUE OF ATA TS 1 

2973 13160 109000 sCHANGE ATA BIT 

2974 613162 809901 sNEW VALUE OF ERR JS 1 

2975 013164 940000 sCHANGE ERR BIT 

2976 

2977 813166 004937 030732 RA, ASCHREG sCHANGE BITS IN SAVED REGISTER 
2978 013172 002172 sCHANGE RHCS1 REGISTER 

2979 

298¢ 013174 990002 32 BIT/BITS TO BE CHANGED 

2981 013176 #90001 sNEW VALUE OF SC IS 1 

2982 013200 1790008 sCHANGE SC BIT 

2983 013202 989901 sNEW VALUE OF TRE IS 1 

2984 013264 0849000 E sCHANGE TRE BIT 

2985 

2996 013706 604037 030732 PO, POCHREG sCHANGE BITS IN SAVED REGISTER 
2987 13212 002174 sCHANGE RHER1 REGISTER 

2988 

2989 813214 600001 si BIT/BITS TO BE CHANGED 

29909 813216 800001 sNEW VALUE OF HCE IS 1 

2991 013220 990200 sCHANGE HCE BIT 

2992 013222 604037 627762 RO, @8FILLRE sMOV 2 INTO SAVED RHDST 

2993 013226 002176 sSAVED REGISTER TO CHANGE 

2994 613230 600002 sDATA 

2995 

2996 013232 953737 64622 0064522 @SATTENT, 8 SAVERES24 sSET APPROPIATE ATA BITS 
2997 sFOR WORKING DRIVE IW 
2998 sSAVED RHAS LOACTION 
2999 

3090 sCOMPARE ALL REGISTERS 

3001 

3092 813240 004037 0631040 JSR RO, @8COMREG sCOMPARE SAVED REGISTERS WITH 
3903 sPRESENT VALUE 

3004 013244 004476 SAVERE 3GOOD DATA SAVED IN °SAVERE? 
3995 013246 002242 sTEST DATA STARTING FROM °RHWC’ 
3906 @13250 900022 316, REGISTERS TO BE COMPARED 
3007 013252 613256 sRETURN TO 3$ ON ERROR 

3908 @13254 613262 sRETUPRN TO 46 ON NO ERROR 

3999 13256 184047 sREADING ON NON EXISTANT SECTOR 
3410 @13260 0800207 

3011 sCAUSED AN ERROR 

3012 3GOO0D DATA GIVES WHAT SHOULD 
3013 sBE THERE 

3014 sRECEIVFD DATA GIVES WHAT 

3915 sWAS THERE AFTER READ 

3916 sREAD DATA WILL BE COMPARED 

3017 013262 

3418 

3919 13262 984037 432070 JSR RA, @sCOMPAR sCOMPARE TWO BLOCKS OF MEMORY 
3920 013266 002354 WRFROM sGOOD DATA STARTS FROM WRFROM 
3921 013270 003420 REINTO sTEST DATA STARTS FROM REINTO 
3922 013272 0004090 256. 3256. WORDS TO BE COMPARED 
3023 @13274 413300 58 sRETURN TO S$ ON ERROR 

a 813276 013304 68 sRETURN TO 68 ON NO ERROR 

925 
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3976 8013300 104050 583 ERROR sa sDATA READ FROM NON 

3977 813302 800207 RTS ec sEXISTANT SECTOR CAUSED AN FPROR 

3428 8013304 683 

3029 

3030 FESSSSSSHSSHSHSSSSHOHHSSSHSSEHHSHEOHSSSHOSEHHHSEHSSTESOSSSOSEROOS 

3331 s@TEST 14 HEADER COMPARE ERROR © RHEPI BIT 87 

3432 

3033 7 WRITE HEADER AND PATA IS USED TO REMOVE SECTOP 1 

3034 36 AND PUT SECTOR @ ON CYLINDER @ 

3035 78 THEN A WRITE DATA IS GIVEN FOR SFCTOR 1, TRACK 4, CYLINDER @ 

3736 30 FOR 70, WORDS 

3037 3@ HCE © BIT 7 IN RHER{ SHOULD SET 

3938 3@ ALL REGISTERS ARE CHECKED 

3939 28 THEN A PEAD HEADER AND DATA SECTOR 1, TRACK @, CYLINDER @ 

3040 Bd IS GIVEN, HCE = BIT 7 SHOULD SET AND ALL 

3041 s* HEADEP AND DATA SHOULD BE READ 

3042 

3443 FOSSSHSSSSSHSSHSSHSSSSSSHSSHSHSSSOSSHSHHSSHOSHSHSSHHSSOTHSEGOTEES 

3944 013304 aAneare4 TST14: SCOPE 

34945 013306 812706 001000 MOV SSTACK, SP sRESET STACK 

3946 613312 612737 @90014 004470 MOV 014, @8TSTNM sSAVE TEST NUMBER 

3047 

3048 013320 004737 630060 JSR pe, @8CLDISK sSET Ri-PHCS1, R2-RHCS2 

3049 sR3°RHDS1, R4-RHERI 

305@ sGIVE RHeili INITIALIZE 

3051 sSETUP UNIT NUBER 

345? 

3953 sFILL WRITE FROM BUFFFR WITH HEADER ADD DATA 

3954 

3955 013324 604037 0627704 JSP RO, @6FLHEAD sSAVE HEADEP DATA IN WRFROM 

3056 4813339 902354 WRFROM sLOCATION WHERE SAVED 

3957 013332 880006 6 sNUMBER OF WORDS SAVED 

3058 813334 619900 1900e sFIRST DATA WORD 


3959 013336 600909 6 sSECOND DATA WORD 
3960 013340 800000 @ sTHIRD DATA WORD 
3961 613342 690000 a sFOURTH DATA WORD 
3062 @13344 800001 1 sFIFTH DATA WORD 
3063 013346 800001 1 sSIXTH DATA WORD 


3964 

3065 sFILL READ INTO BUFFER WITH ALL ONES 

3°66 8613350 604037 027730 JSR PO, @s8CLAREA sCLEAR 256, WORDS, FROM REINTO 
3067 613354 803420 REINTO sSTARTING FROM REINTO 

3768 013356 600490 256. 3256, WORDS 

3469 813360 177777 oi sFILL WITH =1 

3070 

3071 

3972 sWRITE HEADER AND DATA IS LOADED 

3073 

3974 013362 0604037 6320924 JSR RO, @@RUN sSETUP TO RUN FOR DATA COMMAND 
3075 013366 900000 0 sCYLINDER @ 

3076 913370 001 BYTE 1 sSECTOR 1 

3477 613371 000 BYTE t) sTRACK @ 

3978 @13372 177772 -294 sWORD COUNT (DATA)#2¢ 

3979 34 HEADER WORDS 

3080 013374 602354 WRFROM sBUS ADDRESS 

3081 sSTARTING ADDRESS OF DATA 


a RN 
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3082 sQUFFFR = WRFReOM 
3963 013376 800000 Ud) 200 NOT INHIBIT BUS ADDRESS INCREMENT 
3984 813400 91909000 F¥T22 216 BITS PER WORD FORMAT 
3085 200 NOT INHIBIT FCC CORRECTION 
3086 2700 NOT INHIBIT HEADER COMPARE 
3087 813492 602332 WPIFOR sGET PEADY TO DO A WRIFOR 
3088 sWRITE HEADER AND DATA WITH 62 IN RHCSi 
3aR9g 
3090 
3°91 sNOW SAVE RFGISTERS FOR COMPARISON AFTER 
3092 sWPITF HEADER AND DATA 
3093 813404 004037 630922¢ : JSR RO, @eSAVER SAVE RFGISTERS 
3094 13410 002164 RHWC sRHWC IS THE FIRST REGISTER SAVED 
3995 813412 004476 SAVERF. sSTARTING ADDRES OF WHERE 
3096 sTHE REGISTERS ARE SAVED 
3997 613414 0800021 17, sNUMBER OF REGISTERS 
3098 sSAVED s 17, ; 
3499 013416 004737 630140 JSR PC, @sCHECKT sCHECK DVA,RDY,MOL,DPR,DRY,VV 
3190 
3101 013422 613777 004472 1665390 wnv QtPP4VEC,@RPVEC ;3SET PPA4 VECTOR ADORESS 
3102 3TO °TIME1® IF PeCLOCK IS PRESENT 
3103 sOR TO °TIME2° IF PeCLOCK IS NOT PRESENT 
3104 s°TIME® WILL ONLY SAVE 
3105 sCURRENT CYLINDER ADDRESS 
3106 2AND LOOK AHEAD REGISTERS 
3147 
3106 013430 0613746 002332 MOV @GWRIFOR,°(SP) 3GET READY TO MOVE COMMAND 
3109 013434 052716 000101 BIS eGOLIE,(SP) sGET READY TO SET GO AND 
3110 sENABLE INTERRUPT 
3111 013449 612677 166526 MOV (SP)¢,@RHCSI1 3G0 WITH 
3112 262 IN RHCS1 FOR WRITE HEADER AND DATA 
3113 sWITH INTERRUPT ENABLED 
3114 +TIME IS NOT CRITICAL 
3115 
3116 013444 104420 WAT sWAIT FOR RDY BIT TO SET 
3117 013446 002172 RHCS1 sWAIT FOR RHCS1 REGISTER 
3118 013450 680200 RDY sWATT FOR RDY BIT IN RHCS1 REGISTER 
3119 913452 004704 2504, gALLOW 25000 MICRO SECONDS 
3120 013454 094704 2500, sROY MUST SET BETWEEN 
3121 2@@ AND $0000 MICRO SECONDS 
3122 sNOW CHANGE SAVED REGISTERS TO EXPECTED VALUE 
3123 013456 664037 627762 JSP PO, RF ILLRE s40V @ INTO SAVED RHWC 
3124 13462 902164 RHWC sSAVED REGISTER TO CHANGE 
3125 913464 009000 ‘J sDATA 
3126 013466 0049037 @27762 JSR RO,@eFILLRE sMOV WRFROM¢<6e82> INTO SAVED RHBA 
3127 013472 002166 RHBA sSAVED REGISTER TO CHANGE 
3128 013474 0602370 WRFROM¢<6e2> sDATA 
3129 013476 0604937 027762 JSP RO, @SFILLRE “OV 2 INTO SAVED RHDST 
3130 @13502 602176 PHDST #SAVED REGISTER TO CHANGE 
3131 013504 600002 2 sDATA 
3132 sCOMPARFE ALL REGISTERS 
3133 
3134 013506 0604037 0631040 JSR RO, @8COMREG sCOMPARE SAVED REGISTERS WITH 
3135 sPRESENT VALUE 
3136 013512 604476 SAVERE :GOOD DATA SAVED IN °SAVERE’ 
3137 013514 002242 we sTEST DATA STARTING FROM °RHWC? 


ret LL A 


NETL LT Ln 
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3138 013516 9890021 17, 317. REGISTERS TO BE COMPARFD 
3139 0613520 013524 is sRETUPN TO 1¢ ON ERROR 
3140 613522 613530 2s sRETUPN TO 2$ ON NO ERROR 
3141 813524 104027 163 EPROR 27 WRITING 4EADER AND DATA CAUSFD 
3142 613526 9°0207 RTS ec sIMPROPEP RFGISTEFR CHANGE 
3143 #GO0D DATA GIVES WHAT 
3144 sSHOULD BE THERE 
3145 sRECEIVED DATA GIVES WHAT 
3146 sWAS THERE AFTER WRITE 
3147 
3148 sNOW A WRITE DATA WILL BE DONE ON SAME CYLINDEP, SECTOR 
3149 3 TRACK 
3150 
3151 013530 283 
3152 
3153 sFILL WRITE FROM BUFFER WITH DATA 
3154 813530 0664037 927730 JSR R@,@8CLAREA s:CLEAP 70, WORDS, FROM WRFROM 
3155 013534 002354 WRFROM sSTARTING FROM WRFROM 
3156 013536 000106 70, 270, WORDS 
3157 013540 177400 177400 sFILL WITH 177400 
3158 
3159 
3169 sWRITF DATA COMMAND IS LOADED 
3161 
3162 813542 9@4037 @32024 JSR RO, @eRUN sSETUP TO RUN FOR DATA COMMAND 
3163 613546 600000 0 sCYLINDER @ 
3164 413550 001 BYTE i sSECTOR 14 
3165 013551 00a eAYTE 0 sTRACK @ 
3166 013552 177672 -70. sWORD COUNT s 70, 
3167 013554 002354 WRFROM sBUS ADDRESS 
3168 tSTARTING ADDRESS OF DATA 
3169 sB8UFFER = WRFROM 
3170 @13556 999900 7) 300 NOT INHIBIT BUS ADDRESS INCREMENT 
3171 813560 010000 PMT22 £16 BITS PER WORD FORMAT 
3172 3D0 NOT INHIBIT ECC CORRECTION 
3173 300 NOT INHIBIT HEADER COMPARE 
3174 @13562 002330 WRIDAT sGET READY TO DO A WRIDAT 
3175 WRITE DATA WITH 60 IN RHCS1 
3176 
3177 sSAVE REGISTERS FOR COMPARISON AFTEP WRITE DATA 
3178 013564 0604037 0630220 JSR RO, @SSAVER 2SAVE REGISTERS 
3179 013570 002164 RHWC sRHWC IS THE FIRST REGISTER SAVED 
3189 @13572 004476 SAVERF STARTING ADDRES OF WHERE 
3181 THE REGISTERS ARE SAVED 
3182 013574 #00022 18, sNUMBER OF REGISTERS 
3183 sSAVED s 18, 
3184 
3185 613576 0604737 630140 JSR PC, @8CHECKT sCHECK PVA,RDY,MOL,DPR,DRY,VV 
3186 
3187 
3188 013602 613777 604472 166350 MOV @ORP4VEC,@RPVEC ;SET RP@4 VECTOR ADDRESS 
3189 3TO °TIME1° IF PeCLOCK IS PRESENT 
3190 sOR TO °TIME2° IF PeCLOCK IS NOT PRESENT 
3191 :°TIME’ WILL ONLY SAVE 
3192 sCURRENT CYLINDER ADDRESS 


3193 sAND LOOK AHEAD REGISTERS 
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3194 

3195 

3196 «6813610 013746 002330 @OWRIDAT,-(SP)  3GET PEADY TO MOVE COMMAND 
3197 013614 @52716 0690101 sGOITE,(SP) sGET READY TO SET GO AND 

3198 sENABLE INTERRUPT 

3199 @13620 12677 166346 (SP)¢,@PHCS1 3GO WITH : 

3200 760 IN RHCS1 FOP WRITE DATA 
3201 sWITH INTERRUPT ENABLED 

3202 

3203 sTIME IS NOT CRITICAL 

3204 

3205 013624 104420 WAT sWAIT FOR RDY BIT TO SET 

3206 913626 002172 RHCS1 sWAIT FOR RHCS1 REGISTER 

3207 0136030 600200 RDY sWAIT FOR RDY BIT IN RHCS1 PEGISTER 
3298 13632 901614 908, sALLOW 9680 MICRO SECONDS 

3209 013634 601592 634, sRDY “UST SET BETWEEN 

3214 3740 AND 17420 MICRO SECONDS 
3211 

3212 sNOW CHANGE REGISTERS TO EXPECTED VALUE 

3213 013636 004037 627762 JSR RO, OSFILLRE sMOV -62, INTO SAVED RHWC 

3214 013642 002164 RHWC sSAVED REGISTER TO CHANGE 

3215 013644 177702 -62. sDATA 

3216 @13646 084037 927762 JSR PO, @OFILLRE sMOV WRFROMe<@.@2> INTO SAVED RHBA 
3217 013652 602166 RHBA sSAVED REGISTER TO CHANGE 

3218 613654 602374 WRFROM¢<8 82> sDATA 

3219 

3220 013656 004637 630732 JSR RO, @OCHREG :CHANGE BITS IN SAVED REGISTER 
3221 013662 092170 RHCS?2 sCHANGE RHCS2 REGISTER 

3222 

3223 813664 000002 92 BIT/BITS TO BE CHANGED 

3224 013666 #00001 sNEW VALUE OF OR IS 1 

3225 13670 660200 sCHANGE OR BIT ; 

3226 813672 800000 sWEW VALUE OF IR IS @ 

3227 013674 08860100 sCHANGE IR BIT 

3228 

3229 13676 864937 0830732 RO, @s8CHREG sCHANGE BITS IN SAVED REGISTER 
3230 0137802 602172 sCHANGE RHCS1 REGISTER 

3231 

3232 013704 800002 32 BIT/BITS TO BE CHANGED 

3233 813706 600001 sNEW VALUE OF SC IS 1 

3234 #13718 100000 sCHANGE SC BIT 

3235 813712 660001 sNEW VALUE OF TRE IS 1 

3236 013714 840900 sCHANGE TRE BIT 

3237 13716 644037 627762 PO, @s8FILLRE sMOV 2 INTO SAVED RHDST 

3238 013722 0602176 sSAVED REGISTER TO CHANGE 

3239 813724 6800062 sDATA 

3240 

3241 013726 053737 094622 004522 @GATTENT, O8SAVERES24 sSET APPROPIATE ATA BITS 
3242 sFOR WORKING DRIVE IN 
3243 sSAVED RHAS LOACTION 
3244 

3245 8013734 604037 630732 PA, @SCHREG :CHANGE BITS IN SAVED REGISTER 
3246 013740 902174 sCHANGE RHER1 REGISTER 

3247 

32486 013742 900001 1 BIT/BITS TO BE CHANGED 

3249 613744 800001 sNEW VALUE OF HCE I8 1 
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3259 
3251 
3252 
3253 
3254 
3255 
3256 
3257 
3258 
3259 
3260 
3261 
3262 
3263 
3264 
3265 
3266 
3267 
3268 
3269 
3270 
3271 
3272 
3273 
3274 
3275 
3276 
3277 
3278 
3279 
3280 
3281 
3282 
3283 
3284 
3285 
3286 
3287 
3288 
3289 
3290 
3291 
3292 
3293 
3294 
3295 
3296 
3297 
3298 
3299 
3300 
3301 
3302 
3303 
3304 
3305 


913746 


013750 
013754 


013756 
013760 
013762 
013764 
013766 


913770 


013774 
013776 
0149709 
014002 
014004 
014006 
014010 


914012 
#14012 


014016 
014022 
014024 
014026 
014030 
014032 
014934 
014036 
014040 
014942 
014046 
014050 
014052 


014054 
014060 


T14 
003200 


004037 
092214 


009802 
000001 
198000 
900001 
040060 


004037 


004476 
002242 
909022 
014006 
014012 
194052 
000207 


004737 


004037 
002354 
000006 
010900 
600000 
000000 
996000 
000001 
000001 
004037 
002370 
000396 
000600 


004037 
003204 
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030732 


031040 


027704 


027730 


027730 
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HCE 


JSR PA, @8CHREG 
RHDSi 


2 

i 

ATA 

1 

ERR 

sCOMPARE ALL REGISTERS 
JSP RA, @8COMREG 


SAVERE 
we 


RTS pc 


sCHANGE HCE BIT 


sCHANGE BITS IN SAVED REGISTER 
sCHANGE RHDS! REGISTEP 


92 BIT/BITS TO BE CHANGED 
sNEW VALUE OF ATA IS 1 
sCHANGE ATA BIT 

sNEW VALUE OF ERR IS 1 
sCHANGE ERR BIT 


sCOMPARF SAVED REGISTERS WITH 
sPRESENT VALUE 

sGOOD DATA SAVED IN °SAVERE’ 

sTEST DATA STARTING FROM °RHWC? 
316, REGISTERS TO BE COMPARED 
sRETUPN TO 38 OW ERROR 

sRETURN TO 48 ON NO ERROR 

sWRITE DATA ON NON EXISTAWNT SECTOR 
sCAUSED IMPROPER REGISTER CHANGE 
sATTEMPTED WRITE WAS ON 

sCYLINDER @,SECTOR 1, TRACK 6 

:GOOD DATA GIVES WHAT SHOULD BE THERE 
sRECEIVED DATA GIVES WHAT WAS THERE 
sAFTER COMMAND 


sREAD HEADER AND DATA SECTOR 1, TRACK @- CYLINDER # 


sWILL BE ATTEMPTED 


JSP PC, @eCLDISK 


sSET RieRHCS1, R2-RHCS2 
sR3°RHDS1, R4-RHERI 
sGIVE RHeif INITIALIZE 
sSETUP UNIT NUBER 


sFILL WRITE FROM BUFFER WITH EXPECTED DATA 


JSR RO, @@FLHEAD 
WRFPROM 

6 

10000 


JSR RO, @8CLAREA 
WRFROM¢<682> 

198, 

a 


JSR RO, @eCLAREA 
WRFROM+<204,82> 


sSAVE HEADER DATA IN WRFROM 

sLOCATION WHERE SAVED 

sNUMBER OF WORDS SAVED 

sFIRST DATA WORD 

sSECOND DATA WORD 

sTHIRD DATA WORD 

sFOURTH DATA WORD 

tFIFTH DATA WORD 

sSIXTH DATA WORD 

sCLEAR 198, WORDS, FROM WRFROM+<6e2> 
sSTARTING FROM WRFROMe<682> 

3198, WORDS 

sFILL WITH @ 


sCLEAR 50, WORDS, FROM WRFROMG<204,02> 
sSTARTING FROM WRFROMe<204,02> 
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3306 614062 970062 59. 35@, WORDS 

3307 814064 177777 o1 sFILL WITH 1 

3308 

3309 sFILL PFAD INTO BUFFER WITH ALL OWFS 

3319 014066 004037 427730 JSP PA, @@CLAREA sCLFAP 256, WORDS, FROM REINTO 

3311 @14072 003420 REINTO +STARTING FROM REINTO 

3312 014974 970400 256. 3256, WORDS 

3313 014076 177777 “1 sFILL WITH o1 

3314 

3315 sFILL REGISTERS WITH READ HEADER AND DATA COMMAND 

3316 

3317 014100 004037 632024 JSP PA, @8RUN sSETUP TO RUN FOR DATA COMMAND 

3316 8014104 900000 0 sCYLINDER @ 

3319 0814106 oi BYTE 1 sSECTOR 1 

3320 014107 000 eBYTE @ sTRACK @ 

3321 014110 177464 -200,°4 sWORD COUNT (DATA)8200,¢ 

3322 34 HEADER WORDS 

3323 814112 003420 REINTO sBUS ADDRESS 

3324 sSTARTING ADORESS OF DATA 

3325 sBUFFER s REINTO 

3326 814114 990000 0 3D0 NOT INHIBIT BUS ADDRESS INCREMENT me 7 

3327 014116 614000 ECIIF¥YT22 916 BITS PER WORD FORMAT 

3328 sINHIBIT ECC CORRECTION 

3329 300 NOT INHIBIT HEADER COMPARE 

3330 014120 002336 REFOR sGET READY TO DO A REFOR 

3331 sREAD HEADER AND DATA WITH 72 IN RHCS1 

3332 

3333 

3334 sSAVE PEGISTERS FOR COMPARISON AFTER READ 

3335 sHEADER AND DATA 

3336 914122 694037 0630220 JSR RO, @SSAVER sSAVE REGISTERS 

3337 014126 #02164 RHWC gRHWC IS THF FIRST REGISTER SAVED 

3338 014130 004476 SAVERE sSTARTING ADORES OF WHERE 

3339 sTHE REGISTERS ARE SAVED 

3340 014132 000022 is, sNUMBER OF REGISTERS 

3341 sSAVED = 16, 

3342 

3343 614134 004737 030140 JSR PC, @8CHECKT sCHECK DVA,RDY,MOL,OPP,DRY,VV 

3344 

3345 014140 613777 604472 166012 MOV @SRP4VEC,@RPVEC :SET RP@4 VECTOR ADDRESS 

3346 sTO °TIME1° IF PeCLOCK IS PRESENT 

3347 sOR TO °TIME2° IF PeCLOCK IS “OT PRESENT 

3348 s°TIME’ WILL ONLY SAVE 

3349 sCURRENT CYLINDER ADDRESS 

3350 sAND LOOK AHEAD REGISTERS 

3351 

3352 014146 013746 002336 MOV @eREFOR,@(SP) 3GET READY TO MOVE COMMAND 

3353 014152 052716 600101 BIS eGOLIE, (SP) sGET READY TO SET GO AND 

3354 sENABLE INTERRUPT 

3355 014156 612677 166010 MOV (SP)¢,@RHCS1 3GO WITH 

3356 372 IN RHCS1 FOR READ DATA 

3357 sWITH INTERRUPT ENABLED 

3358 sTIME IS NOT CRITICAL 

3359 

3360 014162 104420 WAT sWAIT FOR RDY BIT TO SET 

3361 014164 602172 RHCS1 sWATT FOR RHCS1 REGISTER 


ETE 
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3362 
3363 
3364 
3365 
3366 
3367 
3368 
3369 
3370 
3371 
3372 
3373 
3374 
3375 
3376 
3377 
3378 
3379 
3380 
3361 
33862 
3383 
3384 
3385 
3386 
3387 
3388 
33869 
3390 
3391 
3392 
3393 
3394 
3395 
3396 
3397 
3398 
3399 
3400 
3401 
3402 
3403 
3404 
3405 
3406 
3407 
3408 
3409 
34190 
3411 
3412 
3413 
3414 
3415 
3416 
3417 


014166 
014170 
014172 


014174 
014200 
914202 
014204 
814219 
014212 


014214 
014220 


014222 
014224 
014226 


014230 
014234 


014236 
014240 
014242 
014244 
014246 
014250 
014254 
014256 


014260 
014264 


014266 
014270 
014272 


014274 


014302 


014306 
014310 
014312 
014314 
014316 


014320 
014322 


T14 


000200 
001614 
001507 


004037 
002164 
900000 
004037 
002166 
004250 


004037 
002174 


000001 
800001 
000200 


004037 
092214 


008962 
000001 
100000 
000001 
040000 
004037 
002176 
000002 


004037 
002172 


000001 
890001 
148000 


053737 


904037 


004476 
002242 
0890022 
014320 
014324 


104031 
0002067 
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ROY 
978. 
639, 


sWAIT FOR ROY BIT IW RHCS1 REGISTER 
sALLOW 99860 MICRO SECONDS 

sRDY MUST SET BETWEEN 

3699 AND 17470 MICRO SECONDS 


sCHANGF SAVED REGISTEPS TO EXPECTED VALUE 


027762 JSP RO, @0FILLPE sMOV @ INTO SAVED RHWC 
RHWC ?SAVED REGISTER TO CHANGE 
a sDATA 
027762 JSP PO, @GFILLRE sMOV REINTO*<204,82> INTO SAVED RHBA 
RHBA sSAVED REGISTER TO CHANGE 
REINTO¢<294 82> sDATA 
030732 JSP RO, @SCHREG sCHANGE BITS IN SAVED REGISTER 
RHER1 sCHANGE RHERI REGISTER 
5 91 BIT/BITS TO BE CHANGED 
1 sNEW VALUE OF HCE IS 1 
HCE sCHANGE HCE BIT 
030732 JSR PO, @8CHREG sCHANGE BITS IN SAVED REGISTER 
RHDS1 sCHANGE RHDS1 REGISTER 
2 32? BIT/BITS TO BE CHANGED 
1 sWEW VALUE OF ATA TS 1 
ATA sCHANGE ATA BIT 
i sNEW VALUE OF EPR IS 1 
ERR sCHANGE ERR BIT 
027762 JSP RO, @OFILLRE s4OV 2 INTO SAVED RHDST 
RHDST sSAVED REGISTER TO CHANGE 
2 sDATA 
030732 JSR RO, @8CHREG sCHANGE BITS IN SAVED REGISTER 
RHCS1 sCHANGE RHCS1 REGISTER 
1 31 BIT/BITS TO BE CHANGED 
1 sNEW VALUE OF SCITRE IS 1 
SCI TRE sCHANGE SCITRE BIT 
004622 004522 BIS @CATTENT, @8SAVERES24 sSET APPROPIATE ATA BITS 
sFOR WORKING DRIVE IN 
sSAVED RHAS LOACTION 
sCOMPARE REGISTERS BEFORE READ HEADER AND DATA 
sWITH AFTER 
031040 JSR RO, @8COMPEG sCOMPARE SAVED REGISTERS WITH 
sPRESENT VALUE 
SAVERE 3GOOD DATA SAVED IN “SAVERE’ 
we sTEST DATA STARTING FROM °“RHWC? 
18, $18, REGISTERS TO BE COMPARED 
5$ sRETURW TO S$ ON ERROR 
68 sRETURN TO 68 ON NO ERROR 
583 ERROR 31 sREAD HEADER AND DATA WITH 
RTS pc sFORCED HEADER COMPARE ERROR 


RR 
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3418 :GOOD DATA GIVES WHAT SHOULD 
3419 BE THERE 

3422 sRECFIVFED DATA GIVES WHAT 

3471 sWAS THFRE AFTER READ 

3422 

3423 :NOW COMPARE READ DATA 

3424 ‘ :THE COMMAND RFAD ONLY 204 WORDS, 4 HFADER WORDS 

3425 gs AND 20¢ DATA WORDS 

3426 014324 683 

3427 

3428 814324 004037 32070 JSP PA,@sCOMPAR sCOMPARF TWO BLOCKS OF MEMOPY ; 
3429 @14330 @02354 WRFROM 236000 DATA STARTS FROM WRFROM 
3439 14332 00342a REINTO TEST DATA STARTS FROM REINTO 
3431 814334 ane4aoe 256. 3256. WORDS TO BE COMPARED 
3432 14336 14342 7$ sRFTUPN TO 78 ON ERROR 

3433 014340 814346 es sRETURN TO @8 ON NO FRROR 

3434 

3435 014342 1294034 7$3: EPPOR 34 sDATA READ FROM A FORCED 

3436 €14344 620207 PTS pc HEADER COMPARE ERROP IS 

3437 s INCORRECT 

3438 3GOOD DATA GIVES WHAT 

3439 :THE READ HEADER AND DATA 

3449 SHOULD HAVE READ 

3441 BAD DATA GIVFS WHAT 

3447 WAS IN BUFFER AFTER 

3443 sREAD COMMAND 

3444 014346 883 

3445 

3446 

3447 

3448 

3449 

3450 

3451 

345? FESSCSSSSPSESHSHSSSSSSOSSSSSSSETCHSSESESSSSSSOOSSOSSSOCSHESSOSESSERED 
3453 2*TEST 15 HEADER COMPARE ERROR = RHERI BIT #7 

3454 

3455 38 WITH THE HEADS ON CYLINDER ® A SEARCH COMMAND IS GIVEN 
3456 3° FOR CYLINDER @ TRACK @ SECTOR 1, ALTHOUGH THE HEADER 
3457 34 FOR THIS SECTOR IS CHANGED TO SECTOR @ HCE@BIT 87 

3458 3@ IN RHER1 SHOULD NOT SET 

3459 3¢ BECAUSE SEARCH DOES NOT REAM HEADER BUT ONLY USES SECTOR COUNTER 
3460 

3461 PVREPSSHDOS VEOH SECT EDETEDE AOSV DFOCTEUD IGE SCFTISHDSHSEDEIHISETIOTVIEOS 
3462 014346 990004 TST1S: SCOPE 

3463 14350 612706 901000 MOV @STACK,SP sRESET STACK 

3464 814354 612737 8090015 604470 MOV #15,@8TSTNM SAVE TEST NUMBER 

3465 

3466 014362 904737 630060 JSR PC, @e8CLDISK sSET RieRHCS1, R2°-RHCS2 

3467 2R3°RHDS1, R4e-RHERI 

3468 : sGIVE RH-il INITIALIZE 

3469 sSETUP UNIT NUBER 

3470 

3471 :GET HEADS TO CYLINDER @ 

3472 814366 604737 030140 JSR PC, @e8CHECKT sCHECK DVA,RDY,MOL,OPR,DRY, VV 
3473 ; 
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3474 014372 9813777 004472 165560 MOV @SRP4VEC,@RPVEC ;SET PP®4 VECTOR ADDRESS 
3475 3TO °TIME1"’ IF PeCLOCK IS PRESENT 
3476 sOR TO °TIME2° IF PeCLOCK IS NOT PRESENT 
3477 :°TIME® WILL ONLY SAVE 
3478 , sCURRENT CYLINDER ADDRESS 
3479 gAND LOOK AHEAD REGISTERS 
34890 
3481 8614400 013746 602314 MOV @SRECALI,=(SP) sGET READY TO MOVE COMMAND 
34682 014494 052716 800101 BIS eGO!LTE, (SP) 3GET READY TO SET GO AND 
3483 sENABLE INTERRUPT 
3484 014410 0612677 165556 MOV (SP)¢,@RHCS! 3G0 WITH 
3485 76 IN RHCS! FOR RECALIBRATE 
3486 sWITH INTERRUPT ENABLED 
3487 014414 611160 MOV @R1,RO ?SAVE RHCS1 DURING ABOVE OPERATION 
3488 614416 611305 MOV @R3,RS 7SAVE RHDS1 DURING ABOVE OPERATION 
3489 
3490 614420 104426 WAT sWATT FOR ORY BIT T9 SET 
3491 014422 002214 RHDS1 :WAIT FOR RHOS1 REGISTER 
3492 014424 0800200 DRY “ sWAIT FOR DRY BIT IN RHDS1 REGISTER 
3493 014426 612740 5600, sALLOW $6000 MICRO SECONDS 
3494 814430 012737 5599, sDRY MUST SET BETWEEN 
3495 21@ AND 111990 MICRO SECONDS 
3496 
3497 0614432 604737 630060 JSR PC, @sCLDISK 2SET RieRHCS1, R2-RHCS2 
3498 sR3°RHDS1, R4-RHERI 
3499 sGIVE RHe1i INITIALIZE 
3500 sSETUP UNIT NUBER 
3501 sFILL REGISTERS FOR SEARCH 
3502 
3503 014436 604037 630010 JSR R@,@@SRCH sSEARCH FOR 
3504 014442: 8090000 @ sCYLINDER 6 
3505S 014444 0e1 eBYTE 1 sSECTOR 1 
35306 014445 000 ePYTE 0 sTRACK © 
3507 
3506 
3509 2SAVE RFGISTERS FOR COMPARISON AFTER SEARCH 
3510 014446 604037 630220 JSR RG, @@SAVER SAVE REGISTERS 
3511 414452 002164 RHWC sRHWC IS THE FIRST REGISTER SAVED 
3512 8014454 0604476 SAVERE sSTARTING ADDRES OF WHERE 
3513 sTHE REGISTERS ARE SAVED 
3314 014456 000022 18, sNUMBFR OF REGISTERS 
3515 sSAVED s 16, 
3516 
3517 
3518 014460 094737 030140 JSR PC, @8CHECKT sCHECK DVA,RDY,MOL,OPR,DRY,VV 
3519 
3520 
3521 014464 613777 004472 165466 MOV @SRP4VEC,@RPVEC sSET RP@4 VECTOR ADDRESS 
3522 3TO °TIME1° IF PeCLOCK IS PRESENT 
3523 20R TO °TIME2° IF PeCLOCK IS NOT PRESENT 
3524 s°TIME’ WILL ONLY SAVE 
3525 sCURRENT CYLINDER ADDRESS 
3526 sAND LOOK AHEAD REGISTERS 
3527 
3528 


3529 0614472 013746 602322 MOV @*SERCH,-(SP) 3GET READY TO MOVE COMMAND 
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3530 
3531 
3532 
3533 
3534 
3535 
3536 
3537 
3538 
3539 
3540 
3541 
3542 
3543 
3544 
3545 
3546 
3547 
3548 
3549 
3552 
3551 
3552 
3553 
3554 
3555 
3556 
3557 
3558 
3559 
3560 
3561 
3562 
3563 
3564 
3565 
3566 
3567 
3568 
3569 
3570 
3571 
3572 
3573 
3574 
3575 
3576 
3577 
3578 
3579 
3580 
3581 
3582 
35863 
3584 
3585 


014476 
#14502 


014506 
014510 


614512 
014514 
014516 
014520 
@14522 


014524 
014530 
014534 
014540 


014542 
014544 
014550 
014554 


014556 
014562 
014566 


014570 
814572 
014576 
014602 


014604 


014604 
414610 


014612 
014614 
014616 


014620 
014624 


014626 
014630 
014632 


014634 


T1S 
52716 
012677 


011100 
611305 


104420 
002214 
090200 
001614 
001507 


013746 
052716 
011637 
022600 


001405 
010037 
010137 
104021 


012746 
011637 
022605 


001495 
010537 
910337 
104963 


094037 
062172 


000001 
060001 
190900 


004037 
002214 


000901 
000001 
100000 


033737 
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165464 


002322 
064301 
001124 


001126 


004464 


010500 


001126 


004464 


030732 


030732 


0094622 004522 


6783 


PITS 
MOV 


MOV 
MoV 


“WAT 
RHDS1 
ORY 
908 @ 
839, 


@GOLTE,(SP) 
(SP)¢,@RHCS! 


sGET READY TO SET GO AND 

sENABLE INTERPUPT 

3GO WITH 

sWITH INTERRUPT ENABLED 

sSAVE RHCS1 DURING ABOVE OPERATION 
sSAVE RHDS1 DURING ABOVE OPERATION 


sWAIT FOR DPY BIT TO SET 

saAIT FOR RHOS1 REGISTER 

sWAIT FOR DPY BIT IN RHDS1 PEGISTER 
sALLOW 9080 “ICRO SECONDS 

sORY MUST SET BETWEEN 

369@ AND 17470 MICRO SECONDS 


sCOMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
3P0 AND RS IMMEDIATELY AFTER GO 


“OV 
RIS 
MOV 
cmp 


BEQ 
MOV 
MOV 
ERPOR 


MOV 
MOV 
CMP 


BEG 
“OV 
MOV 
ERROP 


3s CHANGE 


JSR 
RHCS1 


@8SERCH, (SP) sSAVE COMMAND 

STE!GOIDVASRDY,. (SP) sINCLUDE TESGOIDVAIRDY 

(SP), @@SGDDAT sSAVE FOR PRINTOUT 

(SP)6,RO sDURING ABOVE OPERATION ONLY TE!GO!DVAIRDY 
sAND COMMAND SHOULD BE SET 

678 sBRANCH IF GOOD 

RO, ®88BDDAT sBAD DATA 

R1,@@REGADR sFAILING REGISTER RHCS1 

21 sOURING ABOVE OPERATION ONLY 
sCOMMAND AND TE!IGO!LDVAIRDY SHOULD BE SET 

@MOLIDPRI VV, -(SP) #SAVE BITS SET DURING OPERATION IN RHDS{ 

(SP),@88GDDAT sSAVE FOR PRINTOUT 

(SP)o,RS sDURING ABOVE OPERATION ONLY MOLIDPRIVV 
sSHOULD BE SET 

698 sBRANCH IF GOOD 

PS,@8SBDDAT sBAD DATA 

R3,@e@REGADR sFAILING REGISTER RHDS1 

63 sDURING ABOVE OPERATION ONLY 


sMOLIDPRIVV SHOULD BE SET 


SAVED REGISTERS TO EXPECTED VALUE 


RO, @eCHREG 


R2,@8CHREG 


sCHANGE BITS IN SAVED REGISTER 
sCHANGE RHCS1 REGISTER 


31 BIT/BITS TO BE CHANGED 
sNEW VALUE OF SC IS 1 
sCHANGE SC BIT 


sCHANGE BITS IN SAVED REGISTER 
sCHANGE RHDS1 REGISTER 


si BIT/BITS TO BE CHANGED 
sNEW VALUE OF ATA IS 1 
sCHANGE ATA BIT 


OCATTENT, @#SAVERES24 sSET APPROPIATE ATA BITS 


sFOR WORKING DRIVE IN 
sSAVED RHAS LOACTION 
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3586 
3587 
35868 
3589 
3590 
3591 
3592 
3593 
3594 
3595 
3596 
3597 
3598 
3599 
3600 
3601 
3602 
3623 
3604 
3605 
3606 
3607 
3608 
36¢9 
3610 
3611 
3612 
3613 
3614 
3615 
3616 
3617 
3618 
3619 
3620 
3621 
3622 
3623 
3624 
3625 
3626 
3627 
3628 
3629 
36390 
3631 
3632 
3633 
3634 
3635 
3636 
3637 
3638 
3639 
3640 
3641 


014642 
014646 
014650 
014652 
014654 
914656 
014660 


914662 


#14664 


014664 


TiS 


004037 
004476 
002242 
000022 
014660 
014664 
194047 


900207 


000004 
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014666 812706 #01000 


014672 


012737 


@90016 004470 
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sCOMPARE PEGISTERS BEFORE SEARCH WITH AFTER SEARCH 


JSF PA, @8COMREG sCOMPARE SAVED REGISTERS WITH 
sPRESENT VALUF 
SAVEPRF sGOOD DATA SAVED IN °SAVERE’ 
we sTEST DATA STARTING FROM °RHWC? 
18, 318, REGISTERS TO BE COMPARED 
is sRETUPN TO 18 ON ERROR 
2s sRETURN TO 26 ON NO ERROR 
183 ERROR 47 sSEARCH TO A NON@EXISTANT 
RTS pc sSECTOR CAUSED IMPROPER 
sREGISTER CHANGE 
2GOOD DATA GIVES WHAT SHOULD 
3BE THERE 
sRECEIVED DATA GIVES 
sWHAT WAS THERE AFTER 
s SEARCH 
26% 
PEOTSHSEOE GOT EGRESESSOSTE NG IOL OBE EGSEPDTSOETYOGOGESSUGOIFEOSSOOS 
s@TEST 16 RESTORE SECTOR 1 CYLINDER 1 TRACK 1 
30 THIS REPLACES REMOVER SECTOR 
rr) 
ga 
fh) 
38 WRITE HEADER AND DATA CYLINDER ®, FORMAT 16 BITS PER WORD 
i) TRACK @, SECTOR 1, KEYS20, NUMBER OF WORDS 256 WORDS 
38 OF @ 
yo THEN READ HEADER AND DATA FOR ABOVE, 
36 WRITE FROM BUFFER AND READ INTO BUFFER ARE FILLED WITH 
hd 10000,1,0,0, AND 256 OF 6 
28 THE WRITE COMMAND IS THEN LOADED INTO THE REGISTERS EXCEPT 
3° THE GO BIT, AND ALL THE REGISTERS ARE SAVED 
2° THEN GO IS GIVEN FOR WRITE HEADER AND DATA 
90 
hd THEN ALL REGISTERS ARE COMPARED TO CHECK FOR IMPROPER CHANGED 
3@ THEN WRITE FROM BUFFER IS CHECKED TO SEE THAT NOTHING CHANGED 
rh) 
24 
3° NOW FOR THE READ COMMAND READ INTO BUFFER IS FILLED 
i) WITH ALL ONES, COMMAND IS LOADED INTO REGISTERS EXCEPT 
3° GO BIT AND ALL REGISTERS ARF SAVED 
36 GO IS GIVEN FOR THE READ COMMAND 
7 
36 ALL REGISTERS ARE CHECKED FOR IMPROPER CHANGE 
36 THEN THE READ DATA IS COMPARED, 


TST163 


SCOPE 
MOV @STACK, SP sRESET STACK 
MOV €16,@8TSTNM sSAVE TEST NUMBER 


— 


MAINDEC©11 -PERPV<-B MACY11 27(732) 1feFERe76 16:72 PAGE 68 SEQ 0096 
DERPVB.Pi1 T16 RESTORE SECTOR 1 CYLINDER 1 TRACK 1 

3642 @14700 004737 a30060 JSP PC, @9eCLDISK sSET RieRHCS1, R2-RHCS2 

3643 sR3-RHDS1, R4-RHERI 

3644 sGIVE RH-1) INITIALIZE 

3645 sSETUP UNTT NUBFR 

3646 

3647 sFILL WRITE FROM BUFFER WITH HEADER 

3648 

3649 014704 604037 0627704 JSR RO, @OFLHEAD sSAVE HEADER DATA IN WRFROM 

3650 0147168 002354 WRFROY sLOCATION WHERE SAVED 

3651 14712 990004 4 sNUMBER OF WORDS SAVED 

3652 614714 0810000 19900 sFIRST DATA WORD 

3653 814716 000001 1 sSECOND DATA dOPD 

3654 @€14720 0880000 6 sTHIRD DATA WORD 

3655 014722 990900 8 sFOURTH DATA WORD 

3656 

3657 sFILL WRITF FROM BUFFER WITH DATA 

3658 014724 004037 027730 JSP RO, @8CLAREA sCLEAR 256, WORDS, FROM WRFROWS10 

3659 014730 072364 WRFROM410 sSTARTING FROM WRFROMS10 

3660 814732 800400 256. 3256, WORDS 

3661 414734 970000 0 sFILL WITH 6 

3662 

3663 

3664 sNOW READ INTO BUFFER WILL BE FILLED WITH SAME DATA 

3665 :AS WRITE FROM BUFFER SO THAT AFTER A WRITE COMPARISONS 

3466 sCAN BE MADE TO MAKE SURE THAT WRITE DID NOT 

3667 sCHANGE WRITE FROM BUFFER 

3668 : 

3669 814736 804037 627704 JSP RO, @OFLHEAD sSAVE HFADER DATA IN REINTO 

3670 014742 003420 REINTO sLOCATION WHERE SAVED 

3671 014744 680004 4 sNUMBER OF WORDS SAVEO 

3672 014746 610000 10000 sFIRST DATA WORD 

3673 814750 600001 1 sSECOND DATA WORD 

3674 614752 600000 @ sTHIRD DATA WORD 

3675 014754 800000 t sFOURTH DATA WORD 

3676 614756 604037 827739 JSR PO, @s8CLAREA sCLEAP 256. WORDS, FROM REINTOS10 

3677 014762 0663430 REINTOC1@ sSTARTING FROM REINTOO1®@ 

3678 814764 0800400 256. 3256. WORDS 

3679 014766 #90900 t sFILL @aITH @ 

36860 

3681 

3682 sNOW THE WRITE HEADER AND DATA COMMAND WILL BE FILLED 

3683 

3684 014770 084037 032724 JSR PO, @8RIUN :SETUP TO RUN FOR DATA COMMAND 

3685 914774 900000 @ sCYLINDER @ 

3686 014776 601 BYTE i sSECTOR 1 

3687 614777 000 BYTE 0 sTRACK @ 

3688 815000 177374 ©256.°4 sWORD COUNT (DATA)=256.¢ 

3689 34 HEADER WORDS 

3699 #15902 002354 WRFROM sBUS ADDRESS 

3691 sSTARTING ADDRESS OF DATA 

3692 sBUFFER s WRFROM 

3693 0159004 879000 a :D0 NOT INHIBIT BUS ADDRESS INCREMENT 

3694 815906 010000 FMT22 316 BITS PER WORD FORMAT 

3695 :D0 NOT INHIBIT ECC CORRECTION 

3696 3D0 NOT INHIBIT HEADER COMPARE 

3697 615010 002332 WRIFOR :GET READY TO DO A WRIFOR 


2 


MATNOFC?11-DERPV<-B 
DERPVA P11 


3698 
3699 
3700 
3701 
3702 
3703 
3704 
3705 
3746 
3707 
37098 
3709 
3710 
3711 
3712 
3713 
3714 
3715 
3716 
3717 
3718 
3719 
3720 
3721 
3722 
3723 
3724 
3725 
3726 
3727 
3728 
3729 
3734 
3731 
3732 
3733 
3734 
3735 
3736 
3737 
3738 
3739 
3740 
3741 
3742 
3743 
3744 
3745 
3746 
3747 
3748 
3749 
3750 
3751 
3752 
3753 


015912 
915016 
015020 


015922 


815924 


015030 


015736 
015042 


A15946 


915052 
a15054 


015056 
915060 
015062 
015064 
015066 


015070 
A15074 
015190 
015104 


015106 
015110 
015114 
015120 


015122 
015126 
015132 


T16 


004037 
#02164 
004476 


004737 


013777 


013746 
052716 


012677 


011100 
011305 


144420 
002172 
090200 
001614 
001507 


013746 
052716 
011637 
022600 


901405 
010037 
010137 
104021 


012746 
011637 
022605 


001405 
010537 


MACY 11 27(732) 


930220 


004472 


00233? 
004101 
001124 


001126 
004464 


010500 
001124 


165122 


1®°FEB<76 616327 PAGE 69 SEQ #097 
RESTORE SECTOP 1 CYLINDER 1 TPACK 1 


sWRITE HEADER AND DATA WITH 62 TN RHCSi 


sNOW SAVE RFGISTFRS FOR COMPARTSON AFTER WRITE HEADFR AND DATA 


JSR RO, @8SAVER sSAVE REGISTERS 
RHWC sRHWC IS THE FIRST REGISTER SAVED 
SAVEFF #STARTING ADDRES OF WHERE 
3 THE PEGISTERS ARE SAVED 
i?. sNUMBER OF REGISTERS 
:SAVED = 17, 
JSR C,@eCHFCKT sCHECK DVA,RDY,MOL-OPP,DRY,VV 
MOV @ORPA4VEC,@RPVFC :SET RP®4 VECTOR ADDRESS 


2TO °TIME1’ IF PeCLOCK IS PRESENT 

20OR TO °“TIME2° IF PeCLOCK IS NOT PRESENT 
s°TIME’ WILL ONLY SAVE 

sCURPRENT CYLINDER ADDRESS 

sAND LOOK AHEAD REGISTERS 


MOV GSWRIFOR,-(SP) s:GET READY TO MOVE CO™“MAND 

RIS eGO!LIE,(SP) :GET READY TO SFT GO AND 
sENABLE INTERRUPT 

MOV (SP)¢,@RHCS1 3GO WITH 


362 IN RHCS1 FOR WRITE HEADER AND DATA 
sWITH INTERRUPT ENABLED 


MoV OR1,R0 sSAVE RHCS1 DURING ABOVE OPERATION 

MOV @R3,R5 sSAVE PHDS1 DURING ABOVE OPERATION 

sONE PEVOLUTION®S1667@ “MICRO SEC, ONE SECTOR = 76@ MICRO SEC 
WAT sWAIT FOR RDY BIT TO SET 

RHCS1 sWAITT FOR RHCS1 REGISTER 

ROY sWAIT FOR ROY BIT IN PHCS1 REGISTER 
908, sALLOW 9080 MICRO SECONDS 

839, sRDY MUST SET BETWEEN 


3690 AND 17470 MICRO SECONDS 
sCOMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
sP@ AND RS IMMEDIATELY AFTER GO 


MOV @CWRIFOR,°(SP)  sSAVE COMMAND 

BIS STE!GOLOVA,(SP) s INCLUDE IE!GO!DVA 

MOV (SP),@esGDDAT sSAVE FOR PRINTOUT 

cue (SP)o,RO sDURING ABOVE OPERATION ONLY TE!GO!IDVA 
sAND COMMAND SHOULD BE SET 

BEQ 648 sBRANCH IF GOOD 

MOV PO, @8S$BDDAT :BAD DATA 

MOV R1,@eREGADR sFAILING REGISTER RHCS1 

ERROP 21 sDURING ABOVE OPERATION ONLY 
sCOMMAND AND TE!GO!DVA SHOULD BE SET 

MOV sMOLIDPRIVV,-( SP) #SAVE BITS SET DURING OPERATION IN RHDS1 

MOV (SP), @¢SGDDAT :SAVE FOR PRINTOUT 

CMP (SP)o,R5 sDURING ABOVE OPERATION ONLY MOLIDPRIVV 
sSHOULD BE SET 

BEQ 668 sBRANCH IF GOOD 

MOV RS, @s8SBDDAT sBAD DATA 





MAINDEC $11 -NERPVoB 
DFRPVB.Pi1 


3754 
3755 
3756 
3757 
3758 
3759 
3769 
3761 
3762 
3763 
3764 
3765 
3766 
3767 
3768 
3769 
3770 
3771 
3772 
3773 
3774 
3775 
3776 
3777 
3778 
3779 
3780 
3781 
3782 
3783 
3784 
3785 
3786 
3767 
3788 
3789 
3799 
3791 
3792 
3793 
3794 
3795 
3796 
3797 
3798 
3799 
38A0 
3801 
3602 
3803 
3804 
3805 
38696 
3807 
3808 
3809 


eine 


015142 
015146 


415150 


#15150 
015154 
015156 
015160 
015164 
015166 
015170 
#15174 
015176 


015204 
015206 
015210 
015212 
015214 


#15216 
015226 


015222 


015222 
015226 
015230 
015232 
015234 
015236 


015240 
015242 


015244 
015244 


T16 


010337 
104063 


004037 
002164 
000000 
004037 
002166 
003364 
804037 
002176 
000002 


004937 


004476 
062242 
000821 
#15216 
015222 


104027 
000207 


094037 
003420 
002354 
003404 
015240 
015244 


194830 
000207 


044737 


MACY11 27(732) 18@°FEB<76 16:22 PAGE 70 SEQ #698 
RESTORE SECTOR 1 CYLINDER 1 TRACK 1 


074464 
668: 
027762 
027762 
27762 
031040 
163 
283 
432070 
383 
483 
030060 


MOV P3,@8REGADR sFATLING REGISTER RHDS1 
ERROP 63 sDURING ABOVE OPERATION ONLY 
sMOLICPRIVV SHOULD BE SFT 


sNOW CHANGE SAVED REGISTERS TO EXPECTED VALUFS 


JSP P¢, @eFILLRE s4OV @ INTO SAVED RHWC 

RHWC SAVED REGISTER TO CHANGE 

‘ sDATA 

JSR PRO, @eFILLPE “OV WRFPOM¢<260.82> INTO SAVED RHBA 
RHBA sSAVED REGISTER TO CHANGE 
WRFROM+<260,02> DATA 

JSR RO, SOF ILLRE s4OV 2 INTO SAVED RHDST 

RHDST sSAVED REGISTER TO CHANGE 


é sDATA 
sNOW COMPARE REGISTERS BEFORE wPRITE HEADE® AND DATA 
WITH REGISTERS AFTER COMMAND 


JSR PO, @SCOMREG sCOMPARE SAVED REGISTERS WITH 
sPRESENT VALUE 
SAVERE :GOOD DATA SAVED IN °SAVERE’ 
we sTEST DATA STARTING FROM “RHWC? 
17, 217, REGISTERS TO BE COMPARED 
1$ sRETURN TO 18 ON ERROR 
28 sRETURN TO 26 ON NO ERROR 
EPROR 27 sWRITE HEADER AND DATA 
RTS pe sCAUSED IMPROPER REGISTER 
s CHANGE 
sGOOD DATA GIVES WHAT SHOULD 
:BE THERE 


sPECEIVED DATA GIVES WHAT 
sWAS THERE AFTER COMMAND 


:NOW WRITE FROM BUFFER WILL BE CHECKED TO SEE THAT 
sNOTHER GOT CHANGED 


JSP RO, @SCOMPAR sCO“PARE TWO BLOCKS OF MEMORY 
PEINTO :GO00OD DATA STARTS FROM REINTO 
@aRFROM sTEST DATA STARTS FROM WRFROM 

260, 3260, WORDS TO BE COMPARED 

38 sRETURN TO 36 ON ERROR 

4s sRETURN TO 48 ON NO EPROP 

EPROR 30 sWRITE HEADER AND DATA 

RTS ec sCHANGED WRITE FROM BUFFER 


sNOW A PEAD HFADER AND DATA COMMAND WILL SE GIVEN 
sREAD INTO BUFFER [S FILLED WITH OWES 


JSP PC, @eCLDISK sSET RieRHCS1, R2°-RHCS2 
sR3-RHDS1, R4-RHERI 
sGIVE RHeii INITIALIZE 


MAINDEC #11 -DERPV=B 
DERPVB,P11 T16 
3Aa10 
3811 015250 004837 
3812 615254 003420 
3613 15256 600404 
3914 915260 177777 
3815 
3816 
3817 
3018 
3619 @15262 604037 
3820 615266 9800000 
3f21 015270 oa 
3822 015271 000 
3823 015272 177374 
3824 
3825 015274 003420 
3826 
3827 
3828 015776 #90000 
3829 815390 614900 
3830 
38631 
3832 615302 0602336 
3833 
3634 
3835 
3836 
3837 015304 604037 
3838 015310 002164 
3839 615312 64476 
384¢@ 
3941 915314 690022 
3842 
343 
3844 015316 004737 
3845 
3846 
3847 015322 013777 
3846 
3849 
3850 
3851 
385? 
3853 
3854 
3855 015330 613746 
3856 015334 9052716 
3857 
3858 015340 0612677 
3859 
3860 
3861 015344 0611100 
3962 015346 911305 
3863 
3864 
3865 015350 164420 


MACY11 27(732) 
RESTORE SFCTOR 1 CYLINDER 1 TRACK 1 


027730 


#30220 


004472 


092336 
000101 


164626 


164630 


18-FFB<76 


JSR 
PEINTO 
260, 
-1 


16222 PAGF 71 


PO, @8CLAREA 


sNOW FILL COMMAND 


JSP 
a 
1 
® 


°756.°4 


RFINTO 


SETUP UNIT NUBEP 

sCLEARP 260, WORDS, FROY REINTO 
sSTARTING FROM REINTO 

2260, WORDS 

sFILL WITH 1 


:SETUP TO RUN FOR DATA COMMAND 
sCYLINDER @ 

:SECTOR 1 

sTRACK @ 


sWORD COUNT (DATA)#256.¢ 


(i) 
ECISF¥T22 


REFOP 


34 HEADER WORDS 

sBUS ADDRESS 

sSTARTING ADORESS OF DATA 

sBUFFER s REINTO 

9D0 NOT INHIBIT BUS ADDRESS INCREMENT 
$16 BITS PER WORD FORMAT 

sTNHIBIT ECC CORRECTION 

2D0 NOT INHIBIT HEANER COMPAPF 

sGET READY TO DO A PREFOR 

sREAD HEADER AND DATA WITH 72 IN RHCS1 


sNOW SAVE REGISTERS FOR COMPARISON AFTEP READ HEADER AND DATA 


JSP 
RHWC 
SAVEPE 


JSR 


MOV 


RO, @SSAVER 


PC, @sCHECKT 


@SRP4VEC,@RPVEC 


@eREFOR,=(SP) 
sGO!TE, (SP) 


(SP)¢,@RHCS1 


sSAVE REGISTERS 

sRHWC IS THE FIRST REGISTER SAVED 
sSTARTING ADDRES OF WHERE 

sTHE REGISTERS ARE SAVED 

sNUMBER OF REGISTERS 

sSAVED = 18, 


:CHECK DVA,RDY,MOL,OPR,ORY,VV 


sSET RP®4 VECTOR ADDRESS 

sTO °TIME1° IF PeCLOCK IS PRESENT 

sOR TO *TIME2° IF PeCLOCK IS NOT PRESENT 
s°TIME® WILL ONLY SAVE 

sCURRENT CYLINDER ADDPESS 

sAND LOOK AHEAD REGISTERS 


3GET READY TO MOVE COMMAND 
sGET READY TO SET GO AND 
sENABLE INTERRUPT 
3:60 WITH 
#72 IN RHCS1 FOR READ DATA 
WITH INTERRUPT ENABLED 
2SAVE RHCS1 DURING ABOVE OPERATION 
sSAVE RHDS1 DURING ABOVE OPERATION 


sWAIT FOR RDY BIT TO SET 


2 or 





MAINDEC-11-DERPV<-B 
OFRPVB.P11 


3866 
3867 
3668 
3869 
3870 
3671 
3872 
3873 
3874 
3875 
3876 
3877 
3878 
3879 
3880 
3881 
3882 
3883 
3284 
3685 
3886 
3887 
3868 
3889 
3890 
3691 
3892 
3893 
3R94 
3895 
3896 
3897 
3898 
38699 
3909 
3901 
3902 
3903 
3904 
3905 
3906 
3907 
3998 
3909 
3910 
3911 
3912 
3913 
3914 
3915 
3916 
3917 
3918 
3919 
3920 
3921 


ee ea ee 


015352 
015354 
015356 
015360 


015362 
015366 
015372 
015376 


015400 
615402 
015406 
015412 


a15414 
015420 
015424 


015426 
015430 
015434 
015440 


015442 


915442 
015446 
015450 
015452 
815456 
015460 
015462 
015466 
015470 


015472 


015476 
015500 
815502 
015504 
015506 


015510 
415512 


T16 


002172 
004200 
001614 
021507 


013746 
052716 
011637 
022600 


001405 
010037 
010137 
104021 


012746 
011637 
022605 


001405 
010537 
010337 
104063 


004037 
092164 
090000 
004637 
002166 
004430 
004037 
002176 
009002 


004037 


004476 
002242 
600022 
015510 
015514 


104031 
000207 
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001126 
04464 


001126 
004464 


027762 


027762 


027762 


1@°FER“76 16327 PAGE 72 SEQ #106 
RESTORE SECTOR 1 CYLINDER 1 TRACK 1 


6783 


RHCSI sWATT FOR PHCS1 REGISTER 

ROY sWAIT FOR RDY BIT IN RHCS1 REGISTER 
908. tALLOW 9086 MICRO SECONDS 

639, sRPDY “UST SET BETWEEN 


2699 AND 17474 MICRO SECONDS 
sCOMPARF CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IN 
sRk@ AND RS IMMEDIATELY AFTEP GO 


MOY @sRFFOR, (SP) sSAVE COMMAND 

BIS SIE!GO{DVA,(SP) s INCLUDE TE!GOIDVA 

MOV (SP),@88GDDAT sSAVE FOR PRINTOUT 

c™P (SP)¢,RA :DUPING ABOVE OPERATION ONLY IESGOIDVA 
sAND COMMAND SHOULD BE SET 

bEQ 678 sBRANCH IF GOOD 

MOV RO, @8SBDDAT 3BAD DATA 

MoV Ri, @@REGADR sFAILING REGISTER RHCS1 

ERROR 21 sDURING ABOVE OPERATION ONLY 
sCOMMAND AND TE!GO!IDVA SHOULD BE SET 

“OV @MOLIDPRIVV,°( SP) sSAVE BITS SET DURING OPERATION IN RHDS1 

MOV (SP),@eS8GNDAT sSAVE FOR PRINTOUT 

CMP (SP)@,RS sDURING ABOVE OPERATION ONLY MOLIDPRIVV 
sSHOULD BE SET 

REQ 698 sBRANCH IF GOOD 

MOV R5,@s8SBDDAT sBAD DATA 

MOV R3,@eREGADR sFAILING REGISTER RHDS1 

ERROR 63 sDURING ABOVE OPERATION ONLY 


sMOLIDOPRIVV SHOULD BE SET 


sCHEANGE SAVED PEGISTERS TO EXPECTED VALUES 


JSR RO, @OFILLRE 3sMOV @ INTO SAVED RHWC 

RHWC sSAVED REGISTER TO CHANGE 

@ sDATA 

JSR RO, @OFILLRE sMOV RETNTO¢<260.82> INTO SAVED RHBA 
RHBA sSAVED REGISTER TO CHANGE 
REINTO¢<26@,#2> 2DATA 

JSR RO, @OFILLRE MOV 2 INTO SAVED RHDST 

RHDST sSAVED REGISTER TO CHANGE 

2 sDATA 


sCOMPARE REGISTER BEFORE READ HEADER AND DATA 
sWITH REGISTERS AFTER COMMAND 


JSR RA, @@COMREG sCOMPARE SAVED REGISTFRS WITH 
sPRESENT VALUE 

SAVERF 3GOOD DATA SAVED IN °SAVERE® 

we sTEST DATA STARTING FROM °RHWC’ 

18, 218, REGISTERS TO BE COMPARED 

$$ sRETURN TO S$ ON ERROR 

6$ sRETURN TO 6$ ON NO ERROR 

ERPOR 31 sREAD HEADER AND DATA CAUSED 

RTS pc 2 IMPROPER REGISTER CHANGE 
2GOOD DATA GIVES WHAT SHOULD 
3BE THERE 


sRECEIVED DATA GIVES WHAT WAS 


MAINDEC "11 eDEPPV=B MACY11 27(732) 1@eFERe76 16327 PAGE 73 SEQ 0101 
DERPVB,P11 T16 RESTORE SECTOR 1 CYLINDER 1 TRACK 1 

3972 THERE AFTER COMMAND 

3973 

3924 2NOW READ INTO BUFFER WILL BE CHECKED TO SEE 

3925 3;THE READ WAS GOOD 

39276 015514 683 

3927 

3928 8615514 984037 432070 JSR RO, @8COMPAR sCOMPARE TWO BLOCKS OF MEMORY 

3929 015520 002354 WRFROM #GOOD DATA STARTS FROM WRFROM 

3930 @15522 003420 REINTO sTEST DATA STARTS FROM REINTO 

3931 015524 600404 260. 326@, WORDS TO BE COMPARED 

3932 615526 615532 78 sPETURN TO 78 ON ERROR 

3933 615530 0815536 108 sRETURN TO 168 ON NO ERROR 

3934 

3935 

3936 015532 104032 783 ERPOR 32 sWRITE WEADER AND DATA 

3937 815534 600207 RTS ec sFOLLOWED BY A READ HEADER 

3938 sAND PATA GAVE A READ ERROR 

3939 } sERROR MAY BE IN READ OR WRITE 

3940 015536 1083 

3941 

3942 

3943 

3944 

3945 FOCSSSSSSOSSSSESEHSSSSSSSESSHSHSSHSOOOHSSSOCHHSOHOSHSOHSCSHTESCOOOS 

3946 s*TEST 17 INVALID ADDRESS ERROR RHERI-BIT 810 

3947 

3948 1 A WRITE HEADER AND DATA WILL BE ATTEMPTED TO CYLINDER 411 

3949 30 TRACK @, SECTOR 0 

3950 qe INVALID ADDRESS ERROR (IAE) BIT #10 IN RHER{ SHOULD 

3951 38 SET 

3°52 ' 

3953 PESPOGHEH GET OTE EES SOGTO OSS EFOTODST OVO GE EGOFOG TOE OTSSOFOGUGEESROOD 

3954 15536 600004  TST173: SCOPE 

3955 015549 812706 661000 MOV @eSTACK,SP sRESET STACK 

3956 015544 612737 800017 004470 MOV 617,@e8TSTNM sSAVE TEST NUMBER 

3957 

3958 615552 604737 930060 JSR PC, @eCLDISK sSET RieRHCS1, R2°-RHCS2 

3959 sR3eRHDS1, R4eRHER) 

3960 sGIVE RHeii INITIALIZE 

3961 SETUP UNIT NUBER 

3962 

3963 sFILL WRITE FROM BUFFER WITH HEADER 

3964 

3965 015556 004037 27704 JSR RO, @OFLHEAD sSAVE HEADER DATA IN WRFROM 

3966 615562 002354 WRF ROM sLOCATION WHERE SAVED 

3967 015564 000004 4 sNUMBER OF WORDS SAVED 

3968 15566 010633 19633 sFIRST DATA WORD 

3969 815570 3890000 Cd) sSECOND DATA WORD 

3970 815572 9600000 ) sTHIRD DATA WORD 

3971 015574 eee9r00 1) sFOURTH DATA WORD 

3972 

3973 2FILL WRITE FROM BUFFER WITH DATA 

3974 015576 004037 0627730 JSR RO, @eCLAREA sCLEAR 256. WORDS, FROM WRFROMe10 

3975 015602 002364 WRFROMe10 ISTARTING FROM WRFROMC10 

3976 815604 600400 256, 3256, WORDS 


3977 615606 177777 6-1 sFILL WITH Bel 


aml 


MAINDEC #11 -DERPVoB MACY11 27(732) 1@°FER<76 16:27 PAGE 74 SEQ 6162 
DERPVB.P11 T17 INVALID ADDRESS ERROR RHERI-BIT 810 

3978 

3979 

3989 sNOW THE WRITE HEADER AND DATA COMMAND WILL BE FILLED 

3981 

3962 015610 804037 032024 JSR RO, @8RUN sSETUP TO RUN FOR DATA COMMAND 

39°73 015614 800633 633 sCYLINDER 633 

3984 #15616 000 oPYTE C) sSECTOR @ 

3985 015617 000 BYTE 0 STRACK @ 

3986 615620 177374 =256.,°4 sWORD COUNT (DATA)#256,¢ 

3987 34 HEADER WORDS 

3986 015622 002354 WRFROM sBUS ADDRESS 

39869 sSTARTING ADDRESS OF DATA 

3990 sBUFFER = WRFROM 

3991 015624 600900 0 3:00 NOT INHIBIT BUS ADDRESS INCREMENT 

3992 9915626 910700 FMT22 816 BITS PER WORD FORMAT 

3993 300 NOT INHIBIT ECC CORRECTION 

3994 300 NOT INHIBIT HEADER COMPARE 

3995 915630 602332 WRIFOR sGET READY TO DO A WRIFOR 

3996 sWRITE HEADER AND DATA WITH 62 IN RHCSI 

3997 

3998 

3999 sNOW SAVE REGISTERS FOR COMPARISON AFTEP WRITE HEADER AND DATA 

4900 015632 904037 630220 JSP RO, @SSAVER sSAVE REGISTERS 

4901 15636 002164 , RHWC sRHWC IS THE FIRST REGISTER SAVED 

4902 015640 04476 SAVERE sSTARTING ADORES OF WHERE 

4003 sTHF PEGISTERS ARE SAVED 

4904 015642 980022 18, sNUMBER OF REGISTERS 

4005 sSAVED = 18. 

4006 

4007 015644 004737 030140 JSR PC, @8CHECKT sCHECK DVA,RDY,MOL,DPR,DRY,VV 

4008 

4909 

4019 @15650 013777 0604472 164302 MOV GSRP4VEC,@PPVEC :SET RP®4 VECTOR ADDRESS 

4011 2TO °TIME1° IF PeCLOCK IS PRESENT 

4012 sOR TO °TIME2° IF PeCLOCK I8 NOT PRESENT 

4013 s°TIME® WILL ONLY SAVE 

4014 sCURRENT CYLINDER ADDRESS 

4015 sAND LOOK AHEAD REGISTERS 

4016 

4017 

4918 @15656 013746 002332 MOV @GWRIFOR,°(SP)  sGET READY TO MOVE COMMAND 

4919 015662 52716 000101 BIS eGOLIE,(SP) sGET READY TO SET GO AND 

4020 sENABLE INTERRUPT 

4921 015666 0126077 164300 MOV (SP)¢,@RHCS1 3G0 WITH 

4922 362 IN RHCS1 FOR WRITE HEADER AND DATA 

4023 sWITH INTERRUPT ENABLED 

4924 

4025 

4926 815672 194420 WAT sWAIT FOR IAE BIT TO SET 

4027 15674 002174 RHERI sWAIT FOR RHERi REGISTER 

4928 015676 002000 TAE sWAIT FOR TAE BIT IN RHERI PEGISTER 

4929 815700 900011 9. sALLOW 90 MICRO SECONDS 

4030 015702 0600011 9. sTAE MUST SET BETWEEN 

rote | 30@ AND 1860 MICRO SECONDS 

403 

4033 sCHANGE SAVE REGISTERS TO EXPECTED VALUE 


2 ell 
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4034 
4935 
4036 
4037 
4738" 
4339 
4040 
4041 
4042 
4043 
4n44 
4945 
4046 
4047 
4048 
4949 
49590 
4051 
4052 
4053 
4054 
4955 
4056 
4057 
4956 
4059 
4060 
4061 
4062 
4063 
4064 
4065 
4966 
4067 
4968 
4069 
4970 
4071 
4072 
4073 
4074 
4075 
4976 
4077 
4078 
4979 
4080 
4081 
4982 
4083 
4064 
4985 
4086 
4087 
4088 
4789 


015704 
#15712 
015720 
015726 
@15734 
915740 
015742 
015744 
015746 
015750 
015752 


015754 
015760 


015762 
015764 
015766 


015770 


015776 


016004 


016010 
016012 
016914 
016016 
616920 


016022 
916024 


016026 


T17 


017737 
017737 
017737 
017737 
004037 
092214 
000002 


040000 


004037 
002174 


000001 
000001 
902000 


053737 


017737 


004037 


004476 
002242 
8009022 
016022 
016026 


104054 
400207 


ay 
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164254 
164250 
164244 
16424¢ 


@30732 


030732 


164174 


031940 


004476 
904500 
094502 
094504 


044522 


18°FEBo76 16322 PAGE 75 SEQ 0103 
INVALID ADDRESS ERROP RHFRI-BIT 810 


283% 


sAS EXCEPTION ITS ASSERTED BEFORE RUN IS LATCHED 
sPHWC,RHBA,PHCS1,RHCS2, CANNOT BE PEREDETERMINED 
sTHEY WILL VARY DEPENDING ON GATE DELAYS ON DIFFRENT UNITS 


MOV @RHWC,@SSAVERE ;RHWC IS UNPREDICTABLE 

sAS EXPLAINED ABOVE 
MOV OPHBA, @SSAVERFs?:RHBA TS UNPREDICTABLE 

:AS EXPLAINED ABOVE 
“OV @RHCS2,@8SAVERE+4;RHCS2 JS UNPREDICTABLE 

sAS EXPLAINED ABOVE 
MOV @PHCS1,@8SAVERE+6;PHCS1 IS UNPREDICTABLE 

sAS EXPLAINED ABOVE 
JSR PO, @8CHREG sCHANGE BITS IN SAVED RFGISTER 
RHDS! sCHANGE RHDSi REGISTER 
2 32 BIT/B1TS TO BE CHANGED 
1 sWEW VALUE OF ATA 18 1 
ATA sCHANGE ATA BIT 
1 sNEW VALUE OF ERR IS 1 
ERR sCHANGE ERR BIT 
JSR RO, @8CHREG sCHANGE BITS IN SAVED REGISTER 
RHERI sCHANGE RHEP1 REGISTER 
1 31 BIT/BITS TO BE CHANGED 
4 sNEW VALUE OF JAE IS 1 
TAE sCHANGE IAE BIT 
BIS GCATTENT, @8SAVERES24 sSET APPROPIATE ATA BITS 


9FOP WORKING DRIVE IW 
#SAVED RHAS LOACTION 
MOV @RHDST, @@SAVERE12 sRHDST 18 INDETERMINATE SO IT IS NOT CHECKED 


sCOMPARE REGISTERS BEFORE ATTEMPTED WRITE WITH 
sAFTER ATTEMPTED WRITE WITH A IAE ERROR 


JSR RO, @8COMREG sCOMPARE SAVED REGISTERS WITH 
sPRESENT VALUE 

SAVERE 3GOOD DATA SAVED IN °SAVERE’ 

we sTEST DATA STARTING FROM °RHWC? 

18, 216, REGISTERS TO BE COMPARED 

is sRETURN TO 16 ON ERROR 

2s sRETURN TO 28 ON NO ERROR 

ERROR 54 sATTEMPTED OPERATION WITH 

RTS pc sINVALID ADDRESS CAUSED 


s IMPROPER REGISTER CHANGE 
:GOOD DATA GIVES WHAT SHOULD 
sBE THERE 

sRECEIVED DATA GIVES REGISTER 
sCONTENTS AFTER ATTEMPTED 
sWRITE HEADER AND DATA 


ee ae 
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4090 
4091 
4992 
4093 
4094 
4095 
4096 
4097 
4098 
4099 
4100 
4101 
4102 
4103 
4104 
4105 
4106 
4107 
. 4198 
4109 
4110 
4111 
4112 
4113 
4114 
4115 
4116 
4117 
4118 
4119 
4120 
4121 
4122 
4123 
4124 
4125 
4126 
4127 
4128 
4129 
4130 
4131 
4132 
4133 
4134 
4135 
4136 
4137 
4138 
4139 
414@ 
4141 
4142 
4143 
4144 
4145 


LTT ee 


016026 
016030 
016034 


016042 


916046 
016952 
016094 
016956 


016960 
016064 
016066 
016067 
916070 
@16972 


016074 
016976 


016110 


T17 


00004 
012706 
012737 


004737 


064037 
002354 
000400 
000377 


0049037 
900000 
008 
023 
177400 
002354 


902330 
004037 
002164 
004476 


004737 


MACY 27(€732) 


INVALID ADDRESS 


027730 


030140 


094470 


18*FEB<76 16:27 PAGE 76 
EPROR RHERIoPIT 610 


s®TEST 20 INVALID ADDRESS ERPOR RHER1 - BIT #10 

Be A WRITE DATA ITS ATTEMPTED TO CYLINDER @, TRACK 19, 
td SFCTOR @ ° 

hd INVALID ADDRESS ERROR IAE BIT 810 IN RHEPI 


3@ SHOULD SET 


TST2@: SCOPE 


MOV @STACK,SP 
MoV #20,0¢TSTNM 
JSR PC, @sCLDISK 


sPESET STACK 
sSAVE TEST NUMBER 


sSET PieRHCS1, RZ-RHCS2 
sP3-RHDS1, R4-RHERI 
:GIVE RH@-if INITIALIZE 
sSETUP UNIT NUBER 


sFILL WRITE FROM BUFFER WITH DATA 


JSR RO, @OSCLAREA 
WRFROM 

256, 

377 


sCLEAR 256, WORDS, FROM WRFROM 
sSTARTING FROM WRFROM 

3256, WORDS 

sFILL WITH 377 


sWRITE DATA COMMAND WILL BE FILLED 


JSP PO, @eRUN 
@ 
BYTE @ 
oAYTE 19, 
°256, 
WRFROM 


6 
FMT22 


WRIDAT 


sSETUP TO RUN FOR DATA COMMAND 
sCYLINDER 0 

sSECTOR © 

sTRACK 19, 

sWORD COUNT s 256. 

3BUS ADDRESS 

sSTARTING ADORESS OF DATA 
sBUFFER s WREPOM 

300 NOT INHIBIT BUS ADDRESS INCREMENT 
316 BITS PER WORD FORMAT 

300 NOT INHIBIT ECC COPRECTION 
300 NOT INHIBIT HEADER COMPARE 
sGET READY TO DO A WRIDAT 


sWRITE DATA WITH 60 IN RHCS1 


sSAVE REGISTERS FOR COMPARISON AFTER ATTEMPTED WRITE DATA 


JSR PO, @eSAVER 
RHWC 

SAVERE 

18, 

JSR PC, @OCHECKT 


sSAVE REGISTERS 

sRHWC I8 THE FIRST REGISTER SAVED 
sSTARTING ADDRES OF WHERE 

sTHE REGISTERS ARE SAVED 

sNUMBER OF REGISTERS 

sSAVED = 186, 


sCHECK DVA,RDY,MOL,DPR,DRY,VV 


e 


MAINDEC $11 -DERPVeR MACY11 27(0732) 16°eFER©7h 16222 PAGE 77 SEQ #195 
DERPVA PII T20 INVALID ADDPFSS EPPOR RHEPI © PIT 814 
4146 @16120 013777 @84472 164032 “OV @GRP4VEC,@PRPVEC sSET PP?4 VECTOR ADDRESS 
4147 3TO °TIME1® IF PeCLOCK IS PRESFNT 
4148 :OR TO °TIME2*® IF PeCLOCK IS NOT PRESENT 
4149 s°TIME® wILL ONLY SAVE 
4150 sCURRENT CYLINDER ANDPESS 
4151 sAND LOOK AHEAD REGISTERS 
4152 
4153 ; 
4154 016126 013746 092330 MOV @ewPTIDAT,°(SP) s3GFT PEADY TO MOVE COMMAND 
4155 016132 052716 avA101 BIS sGOLTE, (SP) :GET READY TO SET GO AND 
4156 sENABLE INTERRUPT 
4157 016136 612677 164330 MOV (SP), @RHCS! 3GO WITH 
4156 76@ IN RHCS1 FOR WRITE DATA 
4159 sWITH INTERRUPT ENABLED 
4164 
4161 
4162 916142 104420 WAT sWAIT FOR IAE BIT TO SET 
. 4163 016144 002174 ‘ RHEPR! :WATT FOR RHER1 REGISTER 
4164 916146 A220" IAE sWATT FOR TAE BIT IN RHERI PEGISTEP 
4165 #1615@ #eeall 9. sALLOW 90 MICRO SECONDS 
4106 416152 0830011 9. sTAF MUST SET RETWEEN 
4167 200 AND 180 MYICRO SECONDS 
4168 
4169 sCHANGE SAVED REGISTEPS TO EXPECTED VALUES 
4170 
4171 
4172 
4173 3AS EXCEPTION IS ASSERTED BEFORE PUN IS LATCHFD 
4174 ; sRPHWC,RHBA,RHCS1,RHCS2, CANNOT BE PEREDETERMINED 
4175 #THEY WILL VARY DEPENDING OW GATE DELAYS ON DIFFRENT UNITS 
4176 16154 017737 164904 904476 “OV @RHWC,@6SAVERE ;RHWC IS UNPREDICTABLE 
4177 3AS EXPLAINED ABOVE 
4178 016162 017737 1640900 974500 MOV @RHBA, OSSAVERE*2:RHBA IS UNPREDICTABLE 
4179 sAS EXPLAINED ABOVE 
4180 16170 017737 163774 004502 MOV @RHCS2,@8SAVERE*43RHCS2 IS UNPREDICTABLE 
4181 sAS EXPLAINED ABOVE 
4182 016176 17737 163770 994504 MOV @PHCS1,@SSAVERE+6;RHCS1 IS UNPREDICTABLE 
4183 sAS EXPLAINED ABOVE 
4184 
4185 916204 004037 030732 JSR RA, @BCHREG sCHANGE BITS IN SAVED REGISTER 
4186 016210 02214 RHDS1 sCHANGE RHDS1 REGISTEP 
4197 ‘ 
4198 016212 000002 a 32 BIT/BITS TO BE CHANGED 
4169 016214 9890001 1 sNEW VALUE OF ATA IS 1 
4199 616216 100000 ATA :CHANGE ATA BIT 
$191 816227 #A0901 1 sNEW VALUE OF FRR IS 1 
4192 016222 0840000 ERR sCHANGE ERR BIT 
4193 016224 617737 163746 004510 MOV @RHDST, @#SAVERES12 sRHDST IS INDETERMINATE SO IT IS NOT CHECKED 
4194 
4195 
4196 016232 004037 030732 ; JSP RO, @OCHREG sCHANGE BITS IN SAVED RECISTER 
4197 016236 0602174 RHEP1 sCHANGE RHER1 REGISTER 
4198 
4199 16249 800001 1 31 BIT/BITS TO BE CHANGED 
4200 016242 990901 1 sNEW VALUE OF IAE IS 1 
4201 016244 0602000 TAE sCHANGE IAE BIT 


sg) RR aL a TP CEA ETT ADD EA TTS ETE EDEL | 
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4202 
4203 
4204 
4205 
4206 
4207 
4208 
4209 
4210 
4211 
4212 
4213 
4214 
4215 
4216 
4217 
4218 
4219 
4220 
4221 
4222 
4223 
4224 
4225 
4226 
4227 
4228 
4229 
4230 
4231 
4232 
4233 
4234 
4235 
4236 
4237 
4238 
4239 
4240 
4241 
4242 
4243 
4244 
4245 
4246 
4247 
4248 
4249 
4250 
4251 
4252 
4253 
4254 
4255 
4256 
4257 


016246 


016254 
0162608 
016262 
016264 
016266 
016270 
016272 
016274 


016276 


016276 
016300 
016304 


016312 


016316 
016322 


T20 


053737 


004037 


004476 
002242 
900022 
016272 
016276 


104054 
009207 


000004 
012706 
012737 


004737 


004737 
013777 


MACY11 27(732) 18-FEBe76 16322 PAGE 78 SEQ 0106 
INVALID ADDRESS ERROR RHERI © PIT 810 


004622 004522 ATS QSATTENT, @@SAVERFE 424 9SFT APPROPIATE ATA BITS 
sFOR WORKING DRIVE IW 
sSAVED RHAS LOACTION 


sCOMPARE RFGISTERS BEFORE ATTEMPTED WRITE DATA 
sWITH AFTER ATTEMPT, IAE SHOULD BE SET 


031040 JSP RO, @8COMREG sCOMPARE SAVED REGISTERS WITH 
sPRESENT VALUE 
SAVERE sGOOD DATA SAVED IN °SAVERE’ 
we sTEST DATA STARTING FROM “RHWC® 
18, 216, REGISTERS TO BE COMPARED 
18 sRETUPN TO 18 ON ERROR 
28 sRETURN TO 28 ON WO ERROR 
183 ERROR $4 sATTEMPTED WRITE DATA 
RTS pc sWITH INVALIO ADDRESS 
sCAUSED IMPPOPER RFEGISTFR 
s CHANGE 
283 2GOOD DATA GIVES WHAT 


sSHOULD BE THERE 
sRECEIVED DATA GIVES WHAT 
sWAS THERE AFTER AFTER ATTEMPT 


s@TEST 21 INVALID ADDRESS EPROR RHEPR1 -BIT 010 

3@ A READ HEADER AND DATA IS ATTEMPTED TO CYLINDER 6 
se TRACK 6, SECTOR 22 

i INVALID ADDRESS ERROR IAE BIT 018 IN RHERI 

38 SHOULD SET 

3% THIS WILL START WITH THE HEADS OW CYLIKDER 186 

3% TO PROVE THAT IAE SETS EVEN BEFORE THE IMPLIED 

se SEEK 


FOHSESSOHSHSESOSSOSOESOSECHSOHS SHO SHOSSSHOHSHSHOSFOSECEOOCTESORS 
TST21: SCOPE 


001006 MOV @STACK,SP sRESET STACK 
000921 004470 MOV €21,@8TSTNM sSAVE TEST NUMBER 
037060 JSR PC, @eCLDISK sSET RieRHCS1, R2°RHCS2 


sR3-RHDS1, R4-RHERI 
sGIVE RHeoil INITIALIZE 
sSETUP UNIT NUBER 


sGET THE HEADS TO CYLINDER 16 
030140 JSR PC, @eCHECKT sCHECK DVA,RDY,MOL,DPR,ORY,VV 


004472 163630 . MOV @CRP4VEC,@RPVEC sSET RPO4 VECTOR ADDRESS 
sTO °TIME1® IF PeCLOCK IS PRESENT 
sOR TO °TIME2° IF PeCLOCK IS NOT PRESENT 
s°TIME® WILL ONLY SAVE 
sCUPRENT CYLINDER ADDRESS 
sAND LOOK AHEAD REGISTERS 


MAINDEC©11-DERPV<-B 
DERPVB.Pi1 T21 
4258 
4259 016330 004037 
4269 616334 60900190 
4761 
4262 016336 013746 
42763 16342 052716 
4264 
4265 016346 612677 
4266 
4267 
4268 
4269 016352 104420 
4270 016354 002214 
4271 616356 0600200 
4272 016369 015530 
4273 016362 015530 
4274 
4275 
4276 016364 004737 
4277 
4278 
4279 
4280 
4281 016370 804037 
4262 016374 003420 
4283 016376 900260 
4284 916400 125252 
4285 
4286 
4267 
4288 
4289 016402 004037 
4290 916406 900000 
4291 016410 026 
4292 016411 ane 
4293 016412 177374 
4294 
4295 16414 043420 
4296 
4297 
4298 016416 990000 
4299 916420 #14000 
4300 
4391 
4302 016422 002336 
4303 
4304 
4305 
4306 
4307 016424 004037 
4308 616430 002164 
4399 016432 904476 
4310 
4311 616434 090022 
4312 
4313 


MACY11 27(732) 


092340 
A00101 


030060 


027730 


032024 


18°FER°76 16222 PAGE 79 
INVALID ADDRESS ERROR RHER1 BIT 81 


BYTE 
eBYTE 


JSR RO, @8SEEKCY sSEFK FOR 

10 sCYLINDER 10 

MOV @SSEECOM,°(SP) sGET READY TO MOVE COMMAND 

BIS eGOLTE,(SP) 3GET READY TO SET GO AND 
sENABLE INTERRUPT 

MOV (SP)¢,@PRHCS1 3GO WITH 


94 IN RHCS1 FOR SEEK 
sWITH INTERRUPT FNABLED 


WAT sWAIT FOR DRY BIT TO SET 

RHDS1 sWATT FOR RHDS1 REGISTER 

DRY sWAIT FOR ORY BIT IN RHDS1 REGISTER 
7000. sALLOW 70000 MICRO SECONDS 

7000. sDRY MUST SET BETWEEN 


70@ AND 140000 MICRO SECONDS 


JSR PC, @eCLOISK sSET RieRHCS1, R2-RHCS2 
sRI“RHDS1, R4-RHERI 
sGIVE RH-1ii INITIALIZE 
:SETUP UNIT HUBER 

sFILL READ INTO BUFFER WITH 125252 


JSR RO, @sCLAREA sCLEAP 260 WORDS, FROM REINTO 
REINTO sSTARTING FROM REINTO 

260 3260 WORDS 

125252 sFILL WITH 125252 


sTHE READ HEADER AND DATA COMMAND IS FILLED 


JSR FO,@8RUN sSETUP TO RUN FOR DATA COMMAND 
r) sCYLINDER © 
22. sSECTOR 22. 
® sTRACK @ 
©256.°4 sWORD COUNT (DATA)#256.¢ 
34 HEADER WORDS 
REINTO :BUS ADDRESS 
sSTARTING ADDRESS OF DATA 
sBUFFER = REINTO 
v) sD0 NOT INHIBIT BUS ADDRESS INCREMENT 
FMT22:ECI 216 BITS PER WORD FORMAT 


sTINHIBIT ECC CORRECTION 
300 NOT INHIBIT HEADER COMPARE 
REFOR :GET READY TO DO A REFOR 
sREAD HEADER AND DATA WITH 72 IN RHCS1 


sSAVE REGISTERS FOR COMPARISO™ AFTER ATTEMPTED READ 


JSR PO, @@SAVER sSAVE REGISTERS 
RHWC sRHWC IS THE FIRST REGISTER SAVED 
SAVERE sSTARTING ADDRES OF WHERE 
sTHE REGISTERS ARE SAVED 
18, sNUMBER OF PEGISTERS 
#SAVED = 18, 


SEO 0107 


MAINDEC 211 -DEPPV-B MACY11 27(€732) i18°FER*76 16822 PAGE 80 SEQ 4108 
DERPVB,.P11 T21 INVALIO ADDRESS ERROR RHER{ -BIT 810 

4314 0816436 04737 030140 JSP PC, @8CHECKT sCHECK DVA,PDY.MOL,DPR,DRY,VV 

4315 

4316 

4317 016442 613777 084472 163510 MOV @SPP4VEC,@RPVEC 3SET RP@4 VECTOR ADDRESS 

4318 :TO °TIME1’ IF PeCLOCK IS PRESENT 

4319 :OR TO °TIME2° IF P-CLOCK IS NOT PRESENT 

4320 s°TIMF® WILL ONLY SAVE 

4321 sCURRENT CYLINDER ADDPESS 

4322 sAND LOOK AHEAD REGISTERS 

4323 

4324 616450 613746 #02336 MOV @eREFOR,©(SP) sGET READY TO MOVE COMMAND 

4325 016454 0652716 400101 RIS eGOLTE, (SP) sGET READY TO SFT GO AND 

4326 sFENABLE INTERRUPT 

4327 #16460 012677 163506 MOV (SP)¢,@RHCS1 :G0 WITH 

4328 372 IN RHCS1 FOP READ DATA 

4329 sWITH INTEPRUPT ENABLED 

4330 

4331 

4332 16464 104420 WAT sWAIT FOR IAE BIT TO SET 

4333 016466 4802174 RHERI sWAIT FOR RHER1 REGISTER 

4334 016470 992000 TAE sWAIT FOR IAE BIT IN PHERI REGISTER 

4335 016472 0800002 2. sALLOW 20 MICRO SECONDS 

4336 016474 600902 2. sIAE MUST SET BETWEEN 

4337 190 AWD 40 MICRO SECONDS 

4336 

4339 sCHANGE SAVED REGISTERS TO EXPECTED VALUES 

4340 

4341 

4342 

4343 2AS EXCEPTION IS ASSERTED BEFORE RUN IS LATCHED 

4344 sRHWC,RHBA,RHCS1,RHCS2, CANNOT BE PEREDETERMINED 

4345 sTHEY WILL VARY DEPENDING ON GATE DELAYS OW DIFFRENT UNITS 

4346 016476 0817737 163462 904476 MOV @RHWC,@S8SAVERE ;RHWC IS UNPREDICTABLE 

4347 sAS EXPLAINED ABOVE 

4348 716504 0617737 163456 604590 MOV @PHBA, O8SAVERE+2;RHBA IS UNPREDICTABLE 

4349 sAS EXPLAINED ABOVE 

4350 16512 617737 163452 004502 MOV @RHCS2,@@SAVERES4;RHCS2 IS UNPREDICTABLE 

4351 sAS EXPLAINED AROVE 

4352 16520 0617737 163446 904504 MOV @RHCS1, @8SAVERE+6;RHCS1 IS UNPREDICTABLE 

4353 sAS EXPLAINED ABOVE 

4354 

4355 016526 604437 630732 JSP RO, ®OCHREG sCHANGE BITS IN SAVED REGISTER 

4356 616532 002214 RHDS1 sCHANGE RHDS1 REGISTER 

4357 

4358 616534 0800002 2 32 BIT/BITS TO BE CHANGED 

4359 016536 609001 1 sWEW VALUE OF ATA IS 1 

4360 016540 1909000 ATA sCHANGE ATA BIT 

4361 616542 600001 1 sNEW VALUE OF ERR IS 1 

4362 616544 840000 ERR sCHANGE ERR BIT 

4363 16546 017737 163424 004510 MOV @RHDST, @@SAVERE*12 sRHDST IS INDETERMINATE SO IT IS NOT CHECKED 

4364 

4365 

4366 816554 004037 630732 JSR RO, @8CHREG sCHANGE BITS IN SAVED REGISTER 

4367 016560 902174 RHERI sCHANGE RHER1 REGISTER 

4368 


4369 016562 000001 1 31 BIT/BITS TO BE CHANGED 
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4370 
4371 
4372 
4373 
4374 
4375 
4376 
4377 
4378 
4379 
4360 
4361 
4382 
4383 
4364 
43A5 
4386 
4387 
4388 
4389 
4390 
4391 
4392 
4393 
4394 
4395 
4396 
4397 
4398 
4399 
4400 
4401 
4402 
4403 
4404 
4445 
4496 
4407 
4408 
4409 
4410 
4411 
4412 
4413 
4414 
4415 
4416 
4417 
4418 
4419 
4420 
4421 
4422 
4423 
4424 
4425 


016564 
016566 


#16570 


416576 


416602 
016604 
016606 
016610 
016612 


416620 


916620 
016622 
016626 


016634 


016640 
016644 
016646 
016650 


T21 


053737 


904037 


004476 
002242 
090022 
016614 
016620 


194054 
000207 


000004 
012706 
012737 


004737 


004037 
063420 
490260 
125252 


macyti 27(732) 


094622 


027739 


094522 


004470 


18°FER°76 16:22 PAGE 61 
INVALID ADDPESS ERROR PHEP{ BIT 810 


1 sNEW VALUE OF TAE IS 1 
TAE sCHANGE IAE BIT 
BIS @SATTENT, @OSAVFERES24 sSET APPROPIATE ATA BITS 


sFOR WORKING DRIVE IN 
sSAVED RHAS LOACTION 


sCOMPARE REGISTERS BEFORF ATTEMPTED READ HEADER 
sAND DATA WITH AFTER ATTE“PTED READ 


JSR RA, @8COMREG sCOMPARE SAVED REGISTEPS WITH 
sPRESENT VALUE 

SAVERE sGOOD DATA SAVED IN °SAVERE’ 

we sTEST DATA STARTING FROM “RHWC’ 

18, 318, REGISTERS TO BE COMPARED 

is sRETURN TO 18 OW ERROR 

28 sRETURN TO 26 ON NO ERROR 

ERROR 54 sATTEMPTED PEAD HEADER 

PTS pc sAND DATA WITH INVALID 


sADDRESS CAUSED IMPROPER 
sREGISTER CHANGE 

3GOOD DATA GIVES WHAT 
sSHOULD BE THERE 
sRECEIVED DATA GIVES 
sREGISTER CONTENTS 
sAFTER ATTEMPTED 

3READ 


FSSSSHSSSSSSSSSSSSESSHSHSSHSSCHSSHSCHSSSHSHSHSHHSSSHSSHSFSHHCSSSSHSSCGOS 


s®TEST 22 INVALID ADDRESS ERROR RHERI = BIT 010 
rT A READ DATA IS ATTEMPTED TO CYLINDER @, TRACK @ 
16 SECTOR 20 © FORMAT 18 BITS PER WORD 
pe INVALID ADDRESS ERROR IAE BIT 016 IN RHERI 
7° SHOULD SET 
FRSSHSSHSSSHSHSSSHSSSHSHHSHSSSSHHSEHSHHSSHSSSHHSSESCHSHSSHHHSSSSSSSSHSOEEEOS 
TST22: SCOPE 

MOV sSTACK, SP sRESET STACK 

Mov 622, @8TSTNM :SAVE TEST NUMBER 

JSR PC, @SCLDISK sSET RieRHCS1, R2°RHCS2 


sR3°RHDS1, P4-RHFRI 
sGIVE RWe11 INITIALIZE 
sSETUP UNIT NUBER 


sFILL PEAD INTO BUFFER WITH 125252 


JSR RO, @S8CLAREA sCLEAR 26@ WORDS, FROM REINTO 
REINTO sSTARTING FROM REINTO 

260 3260 WORDS 

125252 sFILL WITH 125252 
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4426 :THF RFAD HEADER AND DATA COMMAND IS FILLED 

4427 

4428 016652 004037 032724 JSP PO, @eRUN :SETUP TO RUN FOR DATA COMMAND 

4429 016656 900090 a sCYLINDEP @ 

4430 916660 024 ePYTE 20, sSECTOR 20, 

4431 016661 a00 eBYTE ¢ :TRACK @ 

4432 16662 177400 -756. sWORD COUNT # 256. 

4433 016664 903422 REINTO :BUS ADDRESS 

4434 :STARTING ADDRESS OF DATA 

4435 sBUFFER & REINTO 

4436 016666 990000 @ 300 NOT INHIBIT BUS ADDRESS INCREMENT 

4437 16670 904000 ECI 218 BITS PER WORD FORMAT 

4438" sINHIBIT ECC CORRECTION 

4439 300 NOT INHIBIT HEADER COMPARE 

4440 @16672 002334 PEADAT :GET READY TO DO A READAT 

4441 #READ DATA WITH 70 IN RHCSi 

44142 

4443 

4444 :SAVE REGISTERS FOR COMPARISON AFTER ATTEMPTED READ 

4445 016674 0604037 030220 JSR RO, @8SAVER sSAVE REGISTERS 

4446 016700 02164 PHWC gRHWC IS THE FIRST REGISTER SAVED 

4447 016702 004476 SAVEPRE :STARTING ADDRES OF WHERE 

444n :THF REGISTERS ARE SAVED 

4449 016704 900022 18, :NUMBER OF REGISTERS 

4450 #SAVED = 186. 

4451 

4452 016706 004737 030140 JSR PC, @8CHECKT sCHECK DVA,RDY,4OL,DPR,DRY, VV 

4453 

4454 : 

4455 016712 013777 604472 163240 MOV @SRP4VEC,@RPVEC ;SET RP@4 VFCTOR ADDRESS 

4456 9TO0 °TIME1’ IF PeCLOCK IS PRESENT 

4457 :OR TO °TIME2° ITF PeCLOCK IS NOT PRESENT 

4458 :°TIME*’ WILL ONLY SAVE 

4459 sCURRENT CYLINDER ADDRESS 

4460 gAND LOOK AHEAD REGISTERS 

4461 

4462 

4463 @16720 013746 002334 MoV @OREADAT. (SP) 3GET READY TO MOVE COMMAND 

4464 016724 052716 990101 BIS eGO!TE, (SP) :GET READY TO SET GO AND 

4465 sENABLE INTERRUPT 

4466 016730 012677 163236 MOV (SP)+,@RHCS1 3GO WITH 

4467 :7@ IN RHCS1 FOR READ DATA 

4468 :WITH INTERRUPT ENABLED 

4469 

4470 

4471 016734 104420 WAT sWAIT FOR IAE BIT TO SET 

4472 016736 002174 RHERI sWAIT FOR RHER] REGISTER 

4473 016740 092000 TAE sWAIT FOR IAE BIT IN RHER1 REGISTER 

4474 016742 900902 Re :ALLOW 2@ MICRO SECONDS 

4475 016744 990002 2. sTAE MUST SET BETWEEN 

4476 200 AND 4@ MICRO SECONDS 

4477 

4478 sCHANGE SAVED REGISTERS TO EXPECTED VALUES 

4479 

4489 016746 294937 039732 JSP PRA, @8CHREG sCHANGE BITS IN SAVED REGISTER 

4481 016752 002172 RHCS1 sCHANGE RHCS1 REGISTER 


nt 


_ EEE eee aa... 
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4482 

4483 816754 #00002 2 22 BIT/BITS TO BE CHANGED 

4484 016756 990001 { NEW VALUE OF SC IS 1 

4485 816760 100000 sc sCHANGE SC SIT 

4486 8016762 890001 1 sNEW VALUE OF TPE IS 1 

4487 816764 940000 TRE sCHANGE TRE BIT 

4486 016766 617737 163204 004510 MOV ORHNST, @SOSAVERES12;RHDST IS UNPREDICTABLE 

4489 

4499 016774 004037 930732 JSR RO, @6CHREG sCHANGE BITS IN SAVED REGISTER 

4491 817900 602214 PHDS1 sCHANGE RHDS1 REGISTER 

4492 

4493 017002 000902 2 22 RIT/BITS TO BE CHANGED 

4494 817904 800001 i sNEW VALUE OF ATA IS 1 

4495 617996 100000 ATA sCHANGE ATA BIT 

4496 817010 #90001 4 sNE@ VALUE OF ERR IS 1 

4497 817012 940000 ERR sCHANGE ERR BIT 

4496 

4499 017014 204037 0830732 JSP RO, @eCHREG sCHANGE BITS IN SAVED REGISTER 

4500 817020 002174 RHER{ sCHANGE RMEP1 REGISTER 

4501 

4502 017022 000001 1 31 BIT/RBITS TO BE CHANGED 

4593 817024 06°0001 1 sNEW VALUE OF IAE IS 1 

4504 0617026 982000 IAE sCHANGE TAE BIT 

4505 

4506 017330 053737 004622 004522 BIS @CATTENT, OOSAVERES24 sSET APPROPTIATE ATA BITS 

4507 sFOR WORKING DRIVE IW 

4508 sSAVED RHAS LOACTION 

4509 

45190 2COMPARE REGISTERS BEFORE ATTEMPTED READ 

4511 DATA WITH APTER ATTE“PTED PEAD DATA 

4512 

4513 017036 904037 0631040 JSP RO, @8COMREG sCOMPARE SAVED REGISTERS WITH 

4514 sPPESENT VALUE 

4515 617042 004476 SAVEPRE 3GOO0D DATA SAVED IN °SAVERE’ 

4516 0177944 802242 we sTEST DATA STARTING FROM °RHWC? 

4517 017046 #00022 18, 2186, REGISTERS TO BE COMPARED 

4518 917950 017054 1s sRETURN TO 1$ ON ERROR 

4519 179052 01706” 28 sRETURN TO 28 OWN NO ERROR 

4520 

4521 017954 104054 183 ERROR 54 sATTEMPTED READ 

4522 #17056 8609207 RTS pc :DATA WITH INVALID 

4523 s ADDRESS CAUSED I¥PROPEP 

4524 sREGISTER CHANGE 

4525 :GOOD DATA GIVES WHAT 

4526 sSHOULD BE THERE 

4527 sRECEIVED DATA GIVES 

4528 sREGISTERS CONTENTS 

4529 sAFTER ATTEMPTED 

4530 sREAD 

4531 017060 283 

4532 

4533 

4534 PORESET CELA DEUESOEGETOSHODEEE ESOC SCHUHOIUSOTETSOSSOESROCRSROHSETSO 

4535 s@TEST 23 ADDRESS OVERFLOW ERROR RHERi- BIT#9 ADE 

4536 


4537 3@ A WRITE HEADER AND DATA COMMAND IS GIVEN FOR CYLINDER ©, TRACK @ 
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4538 
4539 
4540 
4541 
4542 
4543 
4544 
4545 
4546 
4547 
4548 
4549 
4550 
4551 
4552 
4553 
4554 
4555 
4556 
4557 
4558 
4559 
4560 
4561 
4562 
4563 
4564 
4565 
4566 
4567 
4568 
4569 
4570 
4571 
4572 
4573 
4574 
4575 
4576 
4577 
4578 
4579 
4580 
4581 
4582 
4583 
4584 
4565 
4586 
4587 
4588 
4589 
4590 
4591 
4592 
4593 


222 ell 


#17060 
017062 
017066 


O17974 


617100 
017104 
017106 
017110 
017112 
017114 
017116 


017120 
017124 
017126 
017130 


017132 
017136 
017140 
017141 
017142 


017144 


T23 


900004 
012706 
012737 


004737 


004037 
002354 
020904 
010009 
400000 
9a0000 
000000 


004037 
002364 
900400 
000000 


004037 
006000 
000 
900 
177374 


MACY11 27¢732) 
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027704 


027730 


032024 


004470 


1AeFER<76 16222 PAGE 94 SEQ 0112 
rh) SECTOP @, 256 WORDS OF @ 

rk) NO CHFCK TS PONE AFTER THIS WRITE 

18 

3: A WRITE HEADER AND DATA COMMAND IS GIVEN FOR 

36 CYLINDFR 414, TRACK 18, SECTOP 21, 261 WORDS 

7° 

7° ADDRESS OVERFLOW ERROP RHERI BITS9 SHOULD SET 

7° AFTER SECTOR 21 IS WRITTEN 

3@ ALL REGISTERS APE CHECKED 

38 

7° A PFAD HEADER AND DATA CYLINDER 410, TRACK 18, SECTOR 21, 
1° 260466448337 WORDS ARF GIVEN 

2° 

3 SECTOR 21 SHOULD BE READ CORRECTLY BUT NO “ORE 

78 READS SHOULD HAPPEN, AOE BIT SHOULD SET 

38 

3” CYLINDER @, TRACK @, SECTOR @ IS READ THERE 

38 SHOULD BE NO CHANGE IN DATA IN THIS SECTOR BY 

2° THE LAST @RITE HEADER AND DATA 


FSSSSSSHSSSSSSHSSHSHSSSHSSSSHSSSSHSSEHSSHSSSSSSHSSSESHHSCHHSSHSHSSHOEES 
TST23: SCOPE 


MOV @STACK,SP sRESET STACK 
MOV 623,@8TSTN¥ sSAVE TEST NUMBER 
Jsre PC, @OCLDISK sSET RieRHCS1, R2-RHCS? 


sR3-RHDS1, R4-RHERI 
sGIVE RHe-1§ INITIALIZE 
sSETUP UNIT NUBER 


sFILL WRITE FROM BUFFER WITH HEADER 


JSR RO, @OFLHEAD sSAVE HEADER DATA IN WRFROM 

WRFROM sLOCATION WHERE SAVED 

4 sNUMBER OF WORDS SAVED 

19000 sFIRST DATA WORD 

) sSECOND DATA WORD 

0 :THIRD DATA WORD 

e sFOURTH DATA WORD 

sFILL WRITE FROM BUFFER WITH DATA 

JSR RO, @OCLAREA sCLEAP 256, WORDS, FROM WRFROM+<4e2> 
WRFROMe<4@2> sSTARTING FROM WREROM+<402> 
256. 3256, WORDS 
6 sFILL WITH 0 


sFILL WRITE HEADER AND DATA COMMAND 


JSR RO, @8PUN sSETUP TO RUN FOR DATA COMMAND 
C) sCYLINDER @ 
eBYTE @ #SECTOR @ 
eBYTE 0 sTRACK @ 
°256,°4 sWORD COUNT (DATA)2256,¢ 
34 HEADER WORDS 
WRFROM 2B8US ADDRESS 


MAINDEC 11 @-DERPV<-B 
DFRPVB.P11 T23 
4594 
4595 
4596 917146 an800a 
4597 017150 610000 
4598 
4599 
4600 @17152 002332 
4601 
4602 
4603 
4604 917154 004737 
4605 
4606 
4607 017160 413777 
4608 
4609 
4619 
4611 
4612 
4613 
4614 
4615 0617166 613746 
4616 017172 0652716 
4617 
4618 @17176 012677 
4619 
4620 
4621 
4622 
4623 017202 104420 
4624 0817204 0082172 
4625 #17206 000200 
4626 017219 604704 
4627 917212 #04704 
4628 
4629 
4630 @17214 004737 
4631 
4632 
4633 
4634 
4635 
4636 917220 604037 
4637 017224 0602354 
4638 817226 600004 
4639 017230 010632 
4640 817232 611025 
4641 817234 9800000 
4642 817236 0800000 
4643 
4644 
4645 817240 004037 
4646 017244 402364 
4647 017246 090400 
4648 017250 065125 
4649 


MACY11 27(732) 
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030140 


@74472 


092332 
000101 


16277a 


027704 


027730 


162772 


1R®eFER=76 16222 PAGE 85 SEQ #113 


sSTARTING ADDRESS OF DATA 

sBUFFER s&s WRFROM 
0 3D0 NOT INHIBIT BUS ADDRESS INCREMENT 
F¥YT22 316 BITS PER WORD FORMAT 

:D0 NOT INHIBIT ECC CORRECTION 

200 NOT INHIBIT HEADER COMPARE 
WRIFOPR :GET PEADY TO DO A WRIFOR 

sWRITE HEADER AND DATA WITH 62 IN PHCS1 


JSP PC, @eCHECKT sCHECK DVA,RDY,“OL,DPR,DORY,VV 


MOV MSRP4VEC,@RPVEC sSET RP®4 VECTOR ADDRESS 
sTO °TIMEL’ IF PeCLOCK IS PRESENT 
:0P TO °“TIME2° IF PeCLOCK IS NOT PRESENT 
s°TIME*® WILL ONLY SAVE 
sCURRENT CYLINDER ADDRESS 
sAND LOOK AHEAD REGISTERS 


MOV G@WRIFOR,°(SP) sGET READY TO MOVE COMMAND 

BIS eGO;TE,(SP) sGET READY TO SET GO AND 
sENABLE INTERRUPT 

MOV (SP)¢,@RHCS1 3G0 WITH 


362 IN RHCS1 FOR WRITE HEADER AND DATA 
sWITH INTERRUPT ENABLED 


WAT sWAIT FOR RDY BIT TO SET 

RHCS1 sWAIT FOR RHCS1 REGISTER 

RDY sWAIT FOR POY BIT IN RHCS1 PEGISTER 
2500, sALLOW 25000 “ICRO SECONDS 

2500, sROY MUST SET BETWEEN 


308 AND $0000 MICRO SECONDS 


JSR PC, @sCLDISK sSET RieRHCS1, R2-RHCS2 
sR3°RHDS1, R4-RHERI 
sGIVE RHell INITIALIZE 
sSETUP UNIT NUBER 

sFILL WRITE FROM BUFFER WITH HEADER 


JSR R@, @@FLHEAD sSAVE HEADER DATA IN WRFROM 

WRFROM sLOCATION WHERE SAVED 

4 sNUMBER OF WORDS SAVED 

19632 sFIRST DATA WORD 

<186,0400>!<21,> #SECOND DATA WORD 

(1) sTHIRD DATA WORD 

a 2FOURTH DATA WORD 

sFILL WRITE FROM BUFFER WITH DATA © 65125 

JSR PO, @@CLAREA sCLFEAR 256. WORDS, FROM WRFROMe<482> 
WRFROM¢<4e2> sSTARTING FROM WRFROMe<4e2> 
256, 3256. WORDS 


<26.82000>2!1<18,040>!1<21.,> sFILL WITH <26,02000>!<16,e40>!1< 


te 


MAINDECe11 -DERPV=R 
DERPVB.P11 T23 
4659 
4651 
4652 
4653 
4654 
4655 017252 004037 
4656 617256 003364 
4657 617260 090004 
4658 017262 010633 
4659 17264 #00000 
4660 217266 4800000 
4661 8017270 000000 
4662 
4663 
4664 617272 004037 
4665 #817276 603374 
4666 017300 8090002 
4067 017302 066900 
4668 
4669 
4670 
4671 
4672 017304 004037 
4673 017310 600632 
4674 617312 025 
4675 617313 022 
4676 0817314 177373 
4677 
4678 17316 002354 
4679 
4680 
4681 017320 600000 
4682 017322 010000 
4683 
4684 
4685 017324 002332 
4686 
46a7 
4688 
4089 
4699 017326 904037 
4691 617332 072164 
4692 017334 0094476 
4693 
4694 0617336 600922 
4695 
4696 
4697 017340 004737 
4698 
4699 
4700 017344 013777 
4701 
4702 
4703 
4704 
4705 
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027704 


027739 


432024 


030220 


004472 


1A@°FERO76 16222 PAGE 86 SEQ 0114 


sFILL WRITE FROM RUFFER WITH NEXT HEADR 
sTHIS IS A NON EXISTANT HEAPEP AND SHOULD NOT BE WRITTEN 
+BY AOE SHUTTING THE WRITE 


JSP PO, @8FLHEAD SAVE HFADER DATA IN WRFROM4<26¢,82> 
WRFROM4¢<260,82> LOCATION WHERE SAVFD 

4 sNUMBER OF WORDS SAVED 

17633 FIRST DATA WORD 

@ SECOND DATA WORD 

1) sTHIRD DATA WORD 

a sFOURTH DATA WORD 

sFILL WRITE FROM BUFFER WITH DATA FOR NEXT SECTOR 

JSR RO, @8CLAREA 2CLEAR 2 WORDS, FROM WRFROMO<264,02> 
WRFROM¢<264,02> STARTING FROM WRFROM+<264,62> 
2 32? WORDS 

<27,82900> sFILL WITH <27,82000> 


sFILL WRITE HEADER AND DATA COMMAND 


JSR PA, @8PUN SETUP TO RUN FOR DATA COMMAND 
410, sCYLINDER 410, 
21. sSECTOR 21. 
149, sTRACK 186, 
©257.°4 sWORD COUNT (DATA)8257.¢ 
34 HEADER WORDS 
WRFROM sBUS ADDRESS 


sSTARTING ADORESS OF DATA 

sBUFFER s WRFROM 
@ 3D0 NOT INHIBIT BUS APDRESS INCREMENT 
FMT22 316 BITS PER WORD FORMAT 

300 NOT INHIBIT ECC CORRECTION 

300 NOT INHIBIT HEADER COMPARE 
WPRIFOR sGET READY TO DO A WRIFOR 

sWRITE HEADER AND DATA WITH 62 IN RHCSi 


:SAVE REGISTERS FOR COMPARISON AFTER WIRTE HEADER AND DATA 


JSR RO, @8SAVER sSAVE REGISTERS 
RHWC sPHWC IS THE FIRST REGISTER SAVED 
SAVERE sSTARTING ADDRES OF WHERE 
sTHE REGISTFRS ARE SAVED 
18, sNUMBER OF REGISTERS 
sSAVED = 18, 
JSR PC, @SCHECKT sCHECK DVA,POY,“OL,DPR,DRY,VV 
MOV @SRP4VEC,@RPVEC :SET RPO4 VECTOR ADDRESS 


sTO °TIME1® ITF PeCLOCK IS PRESENT 

sOR TO °TIME2° IF PeCLOCK IS NOT PRESENT 
9°TIME® WILL ONLY SAVE 

sCURRENT CYLINDER ADDRESS 

sAND LOOK AHEAD REGISTERS 


Meee en nines 
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4706 
4707 
4708 
47a9 
4710 
471i 
4712 
4713 
4714 
4715 
4716 
4717 
4718 
4719 
472¢ 
4771 
4722 
4723 
4724 
4725 
4726 
4727 
4728 
4729 
4730 
4731 
4732 
4733 
4734 
4735 
4736 
4737 
4738 
4739 
4740 
4741 
4742 
4743 
4744 
4745 
4746 
4747 
4748 
4749 
4750 
4751 
4752 
4753 
4754 
4755 
4756 
4757 
4758 
4759 
4760 
4761 


017352 
017356 


017362 


017366 
017370 
017372 
@17374 
017376 


017400 
917404 
017406 
917410 
017414 
017416 


017420 
017424 


017426 
017430 
017432 
017434 
017436 


017440 
017444 


017446 
017450 
017452 
017454 
017456 
017460 
017464 
017466 


017470 
017474 


017476 
017500 
017502 
017504 
917506 
017510 
017512 


T23 


013746 
052716 


012677 


104420 
002172 
809200 
004704 
004704 


004037 
002166 
003366 
004037 
062164 
000000 


004037 
#02172 


000002 
000001 
190900 
A00001 
640000 


004037 
002170 


090002 
600001 
060200 
000001 
400160 
004037 
002174 
001600 


004037 
002214 


090003 
000001 
100000 
000001 
040000 
000001 
092000 
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ADDRESS OVERFI.OW ERROR PHEPio BIT#89 AOF 


097332 
@A0101 


162604 


027762 


027762 


030732 


030732 


027762 


030732 


MOV @GWRIFOR,°(SP) sGET READY TO MOVE COMMAND 

BIS eGOLIE,(SP) #GET PEAOY TO SET GO AND 
sENABLE INTERRUPT 

MOV (SP)¢,@PHCS} 3GO WITH 


962 IN RHCS! FOR WRITE HEADER AND DATA 
sWITH INTERRUPT ENABLED 


WAT sWAIT FOR ROY BIT TO SET 

PHCS1 sWAIT FOR RHCS1 REGISTER 

ROY sWAIT FOR RDY BIT IN RHCS! REGISTER 
2500. sALLOW 25008 MICRO SECONDS 

2500. sRDY MUST SET BETWEEN 


398 AND 50000 MICRO SECONDS 
sCHANGE SAVED REGISTERS TO EXPECTED VALUES 


JSR P¢, @eoFILLRE 2MOV WRFROMO<260,02>¢<¢1.02> INTO SAVED RHBA 
RHBA sSAVED REGISTER TO CHANGE 
WRFPROM¢<260,02>¢<1.02> eDATA 

JSR RO, @OFILLRE “OV @ INTO SAVED RHWC 

RHWC SAVED REGISTFR TO CHANGE 

') sDATA 

JSR RO, ®@8CHREG sCHANGE BITS IN SAVED REGISTER 
RHCS1 sCHANGE RHCS1 REGISTER 

2 $2 BIT/BITS TO BE CHANGED 

1 sNEW VALUE OF SC IS 1 

sc sCHANGE SC BIT 

i sNEW VALUE OF TRE IS 1 

TRE sCHANGE TRE BIT 

JSR RO, @@¢CHREG sCHANGE BITS IN SAVED REGISTER 
RHCS2 s:CHANGE RHCS2 REGISTER 

2 22 BIT/BITS TO BE CHANGFD 

i sNEW VALUE OF OR IS 1 

OR sCHANGE OR BIT 

q sNEW VALUE OF IR TS 1 

Ir sCHANGE IR BIT 

JSR RO, @eFILLRE sMOV AOE INTO SAVED RHERI 
RHERI sSAVED REGISTER TO CHANGE 

AOE sDATA 

JSR RO, @6CHREG sCHANGE BITS IN SAVED REGISTER 
RHDS1 sCHANGE RHDS1 REGISTER 

3 23 BIT/BITS TO BE CHANGED 

| sNEW VALUE OF ATA IS 1 

ATA sCHANGE ATA BIT 

4 sNEW VALUE OF ERR IS 1 

ERR sCHANGE ERR BIT 

q NEW VALUE OF LBT IS 1 

LBT sCHANGE LBT BIT 


reenact TO LL LL LLL LLL LLL LLL 
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4762 

4763 017514 053737 994622 #94522 BIS @SATTENT, @OSAVFPES24 sSET APPROPIATE ATA BITS 
4764 sFOR WORKING DRIVE IN 
4765 sSAVED RHAS LOACTION 
4766 817522 004037 427762 JSR PO, @OFILLRE :4OV 633 INTO SAVED RHCA 

4767 617526 602204 RHCA tSAVED REGISTER TO CHANGE 

4768 017530 000633 633 sOATA 

4769 017532 004037 #27762 JSP RO, @SFILLRE s“OV 632 INTO SAVED RHCC 

4770 017536 002226 RHCC sSAVEC REGISTER TO CHANGE 

4771 8175480 600632 632 sDATA 

4772 017542 017737 162430 904510 MOV ORHDST, @8SAVERF 412 sRHDST IS UNPREDICTABLE 
4773 

4774 sCOMPARF REGISTERS BEFORE WRITE HEADER AND DATA WITH AFTER 
4775 

4776 017550 9604037 031940 JSR RO, RECOMREG sCOMPARE SAVED REGISTERS WITH 
4777 sPRESENT VALUE 

4778 017554 004476 SAVERE 3GOOD DATA SAVED IN °SAVERE® 
4779 817556 002242 we 9TEST DATA STARTING FROM “RHWC? 
4780 817560 600022 18. 218, REGISTERS TO BE COMPARED 
47861 017562 017566 is sRETUPN TO 16 ON ERROR 

4782 017564 017572 28 sRETURN TO 28 ON NO ERROR 

4783 

4784 017566 104055 iss ERROR 55 sWRITING HEADER AND DATA WITH 
4785 017570 000207 RTS pc sEXPECTED ADDRESS OVERFLOW ERROR 
4786 sCAUSED IMPROPER REGISTER 

4787 3s CHANGE 

4768 9GOOD DATA GIVES WHAT SHOULD 
4789 3BE THERE 

4790 sRECEIVFO DATA GIVES WHAT 

4791 sWAS THERE AFTER WRITE 

4792 sHEADER AND DATA 

4793 

4794 sNOW PREPARE TO DO A READ HEADER AND DATA 

4795 

4796 sFILL WRITE FROM BUFFER WITH EXPECTED HEADER 

4797 0617572 283 

4798 

4799 617572 004737 830060 JSR PC, @#CLDISK sSET RieRHCS1, R2-RHCS2 

4Anaa sR3eRHDS1, R4-RHER1 

4801 sGIVE RH-ii INITIALIZE 

4802 sSETUP UNIT NUBER 

4803 

4804 817576 004037 027704 JSR PO, @SFLHEAD sSAVE HEADER DATA IN WRFROM 

4895 017602 002354 WRFROM sLOCATION WHERE SAVED 

4806 017604 9860004 4 sNUMBER OF WORDS SAVED 

4807 017606 010632 10632 sFIRST DATA WORD 

48068 017610 611025 v <18,#400>!3<21,> sSECOND DATA WORD 

4809 817612 9000000 ) sTHIRD DATA WORD 

4810 617614 600000 @ sFOURTH DATA WORD 

4611 

48612 sFILL WRITE FROM BUFFER WITH EXPECTED DATA 

4813 #17616 684037 0827730 JSR RO, @8CLAREA sCLEAR 256, WORDS, FROM WRFROM+<482> 
4814 017622 002364 WRFROM¢<4#2> sSTARTING FROM WRFROM+<402> 
4815 9017624 000400 256. 3256, WORDS 

4816 017626 065125 €26,#2000>1<18,040>!<21,> OFILL WITH <26,02000>!<18,e40>1< 


4817 
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4618 

4619 : sFILL WRITE FROM RUFFEP WITH 377 FRO WORDS 261 TO 266 

4820 017630 004037 027730 JSR RO, @OCLAREA sCLEAR 6 WORDS, FROM WRFROMS<269 02> 

4921 017634 903364 WPFROM*<260,82> sSTARTING FROM WRFROMO<260.82> 

4822 017636 600206 6 36 WORDS 

4923 817640 000377 377 sFILU WITH 377 

4824 

4825 

4826 sCLEAP READ INTO BUFFER 

4827 017642 0604037 0627730 JSR PO, @eCLAREA sCLEAR 266, WORDS, FROM REINTO 

4828 017646 0603420 REINTO sSTARTING FROM REINTO 

4829 017650 600412 266. 3266, WORDS 

4830 #17652 800377 377 sFILL WITH 377 

4831 

4832 

4633 

4834 017654 0604737 630060 JSR PC, @eCLDISK sSET PieRHCS1, R2°-RHCS2 

4835 sR3°RHOS1, R4eRHERI 

4836 sGIVE RHeit INITIALIZE 

4837 sSETUP UNIT NUBER 

4638 

4839 sFILL READ HEADER AND DATA COMMAND 

4840 

4841 017660 804037 #32024 JSR RO, @8RUN sSETUP TO RUN FOR DATA COMMAND 

4842 017664 890632 418, sCYLINDER 416, 

4843 017666 625 oBYTE 21. sSECTOR 21, 

4844 017667 622 BYTE 18, sTRACK 16, 

4845 817670 177266 ©326.°4 sWORD COUNT (DATA)#326.¢ 

4846 34 HEADER WORDS 

4847 017672 003420 REINTO 98US ADDRESS 

4848 sSTARTING ADCRESS OF DATA 

4849 sBUFFER s REINTO 

4950 017674 000000 t) 300 NOT INHIBIT BUS ADDRESS INCREMENT 

4851 017676 014000 ECILFMT22 916 BITS PER WORD FORMAT 

4852 sINHIBIT ECC CORRECTION 

4853 3D0 NOT INHIBIT HEADER COMPARE 

4854 817700 002336 REFOR sGET READY TO DO A REFOPR 

4855 sREAD HEADER AND DATA WITH 72 IN RHCS1 

4856 

4857 

48658 sSAVE REGISTERS FOR COMPARISON AFTER 

4859 gREAD HEADER AND DATA 

4869 A17702 0604037 030220 JSR RO, @OSAVER sSAVE REGISTERS 

4861 617706 002164 RHWC sRHWC IS THE FIRST REGISTER SAVED 

4862 017710 004476 SAVERE sSTARTING ADORES OF WHERE 

4863 sTHE REGISTERS ARE SAVED 

4864 917712 000022 18, sNUMBER OF REGISTERS 

4865 - sSAVED = 18, 

4866 

4667 617714 604737 630140 JSP PC, @8CHECKT sCHECK DVA,RDY,“OL.,OPR,DRY, VV 

4866 

4869 

4870 817720 013777 094472 162232 “OV @ORPA4VEC,@RPVEC sSET RPO4 VECTOR ADDRESS 

4671 sTO °TIMEL® IF PeCLOCK 16 PRESENT 

4872 sOR TO °TIME2° IF PeCLOCK IS NOT PRESENT 


4673 s°TIME® WILL ONLY SAVE 





MAINDFCe11 eDERPVe=R 
DFRPVE,P11 


4974 
R75 
4876 
4877 
qaT7e 
4a79 
4eRe 
4nei 
4882 
4RRy 
4na4 
aRes 
4886 
4e87 
48a 


4RK9 


489a 
4891 
4292 
4Ag3 
4A94 
4395 
4°96 
4897 
4298 
4899 
49a 
4901 
4902 
4903 
4904 
4905 
4906 
4907 
49e8 
4909 
4919 
4911 
4912 
4913 
4914 
4915 
4916 
4917 
4918 
4919 
4923 
4921 
4922 
4923 
4924 
4925 
4926 
4927 
4928 
4929 


RR en rar Cea TEFEN MOREE C RR RRR ED MARTE, ISCAS? PEELE REO TEP RIDIN 


017726 
017732 


017736 


017742 
017744 
017746 
917750 
017752 


017754 
0177600 
017762 
017764 
917770 
017772 


A17774 
020000 


0700382 
820004 
020006 
820010 
20012 


20014 
020020 


020922 
8209024 
820026 
020930 
020932 
020034 
20036 
020040 
920044 
020046 
020050 
020054 
020056 


T23 


913746 
#52716 


012677 


194420 
042172 
A9209 
001614 
001507 


004037 
002166 
094432 
004937 
002164 
177672 


004037 
902172 


900402 
Oadael 
1290000 
000001 
#40900 


AC4037 
002214 


000703 
AGBHA1 
100900 
900001 
840000 
000001 
062020 
404037 
002174 
001000 
004037 
002204 
000633 


053737 


MACY11 27(732) 


1MeFER<76 16277 PAGE 9A 


ADDRESS OVERFLOW FREOPR PHERie BITS9 AOF 


002336 
007101 


162230 


027762 


027762 


030732 


030732 


027762 


027762 


004622 604522 


MoV @ePFFOR,°(SP) 
BIS eGO!TE,(SP) 


MOV (SP)+,@PHCS!1 


WAT 
FHCS1 
RDY 
908, 
a39, 


sCURRENT CYLINDER ANDRESS 
sANT LOOK AHEAD REGISTERS 


:GET READY TO MOVE COMMAND 
:GET READY TO SET GO ANN 
sENABLE INTERRUPT 
:GO aAITH 

972 IN PHCS! FOR READ DATA 
sWITH INTERRUPT FNABSLED 


sWAIT FOR RDY BIT TO SET 
sWAIT FOR RHCS{ PEGISTER 


sWAIT FOR ROY BIT IN RHCS1 PEGISTER 


sALLOW 9080 MICRO SECONDS 
sRDY MUST SET BETWEEN 
3690 AND 17479 MICRO SECONDS 


sCHANGE SAVED REGISTERS TO EXPECTEO VALUES 


JSP RA, @eFILLRE 24OV REINTO¢<269.82> INTO SAVED RHBA 
RHBA sSAVED REGISTER TO CHANGE 
REINTO¢<260,082> +DATA 

JSR RA, @O8FILLRE MOV -74@, INTO SAVED RHWC 

RHWC tSAVED REGISTER TO CHANGE 

-70, 2DATA 

JSR RO, @0CHREG sCHANGE BITS IN SAVED REGISTER 
RPHCS1 sCHANGE RHCS1 REGISTER 

2 32? BIT/SITS TO BE CHANGED 

1 sNEW VALUE OF SC IS i 

s¢ sCHANGE SC BIT 

1 NEW VALUE OF TRE IS 1 

TRE sCHANGE TRE BIT 

JSP RO, @8CHREG sCHANGE BITS IN SAVED REGISTER 
RHDS! sCHANGE RHDS1 REGISTER 

3 23 BIT/BITS TO RE CHANGED 

1 sNEW VALUE OF ATA IS 1 

ATA sCHANGE ATA BIT 

1 sNEW VALUE OF ERR IS 1 

ERR sCHANGE ERR BIT 

i sNEW VALUE OF LBT IS 1 

LBT sCHANGE LBT BIT 

JSR RO, @eFILLRE sMOV AOE INTO SAVED RHER1 
RHER1 sSAVED REGISTER TO CHANGE 

AOE sDATA 

JSR RO,@sFILLRE MOV 633 INTO SAVED RHCA 

RHCA sSAVED REGISTER TO CHANGE 

633 sDATA 

BIS GOATTENT, @@SAVERES24 sSET APPROPIATE ATA 8ITS 


sFOR WORKING DRIVE IN 
sSAVED RHAS LOACTION 


SEQ #118 


MAINDEC*11-DERPV<B MACY11 27(732) 1@FEB*76 16:22 PAGE 91 SEQ 6119 
DERPVA,P11 123 ADDRESS OVERFLOW ERROR RHEPI= BIT#9 ANE 
4930 020966 917737 162194 o04510 MoV @RHDST, @#SAVERE +12 sRHDST ITS UNPREDICTABLE 
4931 
4932 SCOMPARE RFGISTERS BEFORE READ HEADER ANO DATA WITH 
4933 :REGISTEPS AFTER COMMAND 
4934 
4935 920074 904037 031940 JSR PO, @8COMREG SCOMPARE SAVED REGISTERS WITH 
4936 sPRESENT VALUE 
4937 @20100 004476 SAVERE :G000 DATA SAVED IN °SAVERE’ 
4938 020102 002242 we :TEST DATA STARTING FROM °RHWC? 
4939 920104 990022 18, 318, REGISTERS TO BE COMPARED 
4940 020106 020112 8 sPETURN TO 38 ON ERROR 
4941 @2011@ 020116 48 sRETURN TO 48 ON NO ERROR 
4942 
4943 020112 104055 383 ERROR 55 sREADING HEADER AND DATA WITH 
4944 020114 900207 RTS pc sEXPECTED ADDRESS OVERFLOW 
4945 sERROR CAUSED IMPROPER 
4946 ' sREGISTER CHANGE 
4947 :G00D DATA GIVES WHAT SHOULD 
4948 sBE THERE 
4949 sRECEIVED DATA GIVES WHAT 
4950 :WAS THERE AFTER COMMAND 
4951 
4952 sNOW COMPARE THE DATA READ 
4953 020116 483 
4954 
4955 020116 004937 932070 JSR RO, @eCOMPAR sCOMPARE TWO BLOCKS OF MEMORY 
4956 020122 002354 WRFROM :GO00D DATA STARTS FROM WRFROM 
4957 020124 903420 REINTO sTEST DATA STARTS FROM REINTO 
4958 020126 600412 266, $266. WORDS TO BE COMPARED 
4959 920130 020134 58 sRETURN TO S$ ON ERROR 
4969 020132 020140 6$ :RETURN TO 68 ON NO ERROR 
4961 
4962 : 
4963 020134 194056 583 ERROR 56 sDATA READ WITH AN EXPECTED 
4964 920136 600207 RTS pc sADORESS OVERFLOW ERROR 
4965 31S INCORRECT 
4966 sWORD NO 1 TO 260 SHOULD 
4967 3BE READ CORRECTLY 
4968 sWORD NO 261 TO 266 SHOULD 
4969 sNOT CHANGE DUE TO THE READ 
4970 020140 66: 
4971 
4972 020140 904737 930060 JSR PC, @SCLDISK 3SET RieRHCS1, R2-RHCS2 
4973 sR3°RHDS1, R4-RHERI 
4974 sGIVE RH-i INITIALIZE 
4975 sSETUP UNIT NUBER 
4976 pNOW PREPARE TO READ CYLINDER @, SECTOR @, TRACK @ 
4977 9T0 SEE THAT NOTHING GOT WRITTEN ON THERE 
4978 :WITH THE ADDRESS OVER FLOW 
4979 
4980 :PILL WRITE FROM BUFFER WITH EXPECTEO HEADER 
4961 
4982 020144 994037 027704 JSR RO, O9FLHEAD sSAVE HEADER DATA IN WRFROM 
4983 020150 902354 WRFROM LOCATION WHERE SAVED 
4984 920152 990004 4 NUMBER OF WORDS SAVED 


4985 020154 019000 19000 sFIRST DATA WORD 





MAINDEC#11-DERPV<-B 
DERPVA,Pil T23 
4986 920156 900000 
4987 820168 BAnn00 
4986 920162 690000 
4989 620164 804037 
499@ 020170 602364 
4991 620172 980400 
4992 420174 890000 
4993 
4994 
4995 
4996 820176 004037 
4997 820202 003420 
4998 020204 000404 
4999 @20206 0600377 
$000 
5901 
5002 
5703 020210 904737 
5004 
5005 
5006 
5007 
5208 
5909 
5010 020214 004037 
5011 020220 0800000 
$012 020222 000 
$013 020223 000 
5914 020224 177374 
5015 
5916 020226 003420 
5017 
S718 
$919 420230 990000 
5020 920232 614000 
5021 
$022 
$023 020234 002336 
$024 
5925 
5026 
$927 
5928 020236 604037 
5029 @20242 002164 
5030 020244 0604476 
5031 
5032 020246 600021 
5033 
5934 020250 604737 
5035 
5936 
5937 @20254 613777 
5038 
5939 
5040 
5941 


MACY11 27(732) 18=FEB=76 16:22 PAGE 92 
ADDRESS OVERFLOW ERPOP PHFRie BIT#9 AOE 


a SECOND DATA wORD 
a sTHIRM DATA WORD 
0 sFOURTH PATA WORD 
027730 JSP RO, @8CLAREA sCLEAR 256, WORDS, FROM WRFRPOMO<482> 
WREFROMe<482> sSTARTING FROY WRFPOM+<4e2> 
256. 3256. WORDS 
8 sFILL WITH @ 
sFILL READ INTO BUFFER WITH 377 
027730 JSP PO, @s8CLARFA sCLEAR 260, WORDS, FROM REINTO 
REINTO sSTARTING FROM REINTO 
260. 2260, WORDS 
377 sPILL WITH 377 
030060 JSR PC, @eCLDISK sSET RieRHCS1, R2-RHCS2 
sR3IRHDS1, R4eRHERI 
sGIVE RHeil INITIALIZE 
sSETUP UNIT NUBER 
sFILL COMMAND FOR READ WEADER AND DATA 
@32024 JSR RO, @eRUN sSETUP TO RUN FOR DATA COMMAND 
Qa sCYLINDER @ 
eBYTE a sSECTOR 6 
BYTE @ STRACK @ 
-256.°4 sWORD COUNT (DATA)#256.¢ 
34 WEADER woRDS 
REINTO 28US ADDRESS 
sSTARTING ADDRESS OF DATA 
sBUFFER s& REINTO 
a 300 NOT INHIBIT BUS ADDRESS INCREMENT 
ECILFMT22 216 BITS PER WORD FORMAT 
sINHIBIT ECC CORRECTION 
300 NOT INHIBIT HEADER COMPARE 
REFOR 3GET READY TO DO A REFOR 
sPEAD HEADER AND DATA WITH 72 IN RHCS1 
sSAVE REGISTERS FOR COMPARISON AFTER READ 
030220 JSR RO, @SSAVER sSAVE REGISTERS 
RHWC sRHWC IS THE FIRST REGISTER SAVED 
SAVERE sSTARTING ADDRES OF WHERE 
_STHE REGISTERS ARE SAVED 
$9. sNUMBER OF REGISTERS 
2SAVED s 17, 
030140 JSR PC, @8CHECKT sCHECK DVA,RDY,MOL,DOPR,ORY,VV 
064472 161676 MOV @@RP4VEC,@RPVEC 3:SET RPO4 VECTOR ADDRESS 


sTO “TIMES® IF PeCLOCK IS PRESENT 

sOR TO °TIME2° IF PeCLOCK IS NOT PRESENT 
s°TIME® WILL ONLY SAVE 

sCURRENT CYLINDER ADDRESS 


ee i 


ee rE 


aaa __meeeen 





MAINDEC*11-DERPV<-B MACY11 27(732) i18°FEBS76 16:22 PAGE 93 SEQ 0121 
DERPVB.P1i1 T23 ADDRESS OVERFLOW ERROP RHFRIie BIT#9 AOE 
5942 :AND LOOK AHEAD REGISTERS 
$943 
5744 
5045 620262 613746 902336 MOV @SREFOR, (SP) sGET PEADY TO MOVE COMMAND 
5946 020266 052716 009101 BIS eGOLTE,(SP) 3GET READY TO SET GO AND 
5747 sFNABLE INTERRUPT 
5448 620272 012677 161674 MOV (SP)¢,@RHCS! 3GO WITH ; 
5049 272 IN PHCS1 FOR READ DATA 
5asa sWITH INTERPUPT ENABLED 
50S! 
5052 
52053 020276 104420 WAT :WAIT FOR PDY BIT TO SET 
$954 20300 06062172 PHCS1i sWAIT FOR RHCS1 REGISTER 
5955 020302 980200 RDY sWAIT FOR RDY BIT IN RHCS1 REGISTER 
5956 020304 0604704 2500. sALLOW 25000 “ICRO SECONDS 
5357 @20306 #04704 i 2500. sROY MUST SET BETWEEN 
$058 20@ AND $0006 MICRO SECONDS 
5959 
5760 sCHANGE REGISTERS TO EXPECTED VALUE 
5461 820319 604037 027762 JSP RO, OOF ILLRE s4OV @ INTO SAVED RHWC 
5062 020314 #02164 RHWC sSAVED REGISTER TO CHANGE 
5963 8620316 6290000 8 sDATA 
5064 020320 904037 027762 JSR RO, @OFILLRE sMOV REINTO*<260,02> INTO SAVED RHBA 
5065 020324 602166 RHBA sSAVED PEGISTER TO CHANGE 
5966 020326 604430 REINTO+¢<260,82> DATA 
5067 020330 004037 #27762 JSR RO, @eFILLRE sMOV 1 INTO SAVED RHDST 
5068 620334 602176 RHDST sSAVED REGISTER TO CHANGE 
5069 020336 690001 1 sDATA 
sa7a 
S071 820340 ST22A: :sCOMPARE REGISTER BEFORE READ WITH AFTER 
5972 
5973 020340 0604037 931040 JSR RO, @8COMREG sCOMPARE SAVED REGISTERS WITH 
5974 sPRESENT VALUE 
5075 020344 974476 SAVERE 3GOOD DATA SAVED IN °SAVERE’ 
$976 020346 0602242 we sTEST DATA STARTING FROM “RHWC? 
5977 0620350 000021 17. 817. REGISTERS TO BE COMPARED 
S?7R 822352 20356 4s sRETURN TO 46 ON ERROR 
$079 020354 620362 is sRETURN TO 168 OW NO ERROR 
5980 
5981 0620356 104031 483 EPROR 31 sREAD HEADER AND DATA ON 
5982 820360 690207 RTS pc sCYLINDER ©, SECTOR 0 
5083 sTRACK @ AFTER A FORCED 
5764 sADDRESS OVER FLOW ERROR 
5985 sCAUSED IMPROPER REG{STER 
5086 3s CHANGE 
$067 3GOOD DATA GIVES WHAT 
5088 sSHOULD BE THERE 
5999 sRECEIVED DATA GIVES WHAT 
5090 sWAS THERE AFTER READ 
5991 sHEADER AND DATA 
5992 3TF HEADER COMPARE ERROR 
$993 328 FOUND AND THE DATA 
5094 sERROR GIVES THE NEW 
5295 sHEADFR TO 
5996 sCYLINDER 633 (OCTAL) 


$”97 sTHEN AOE OVER FLOWED 








MATNDEC*11-DERPVeR MACY11 27(732) 18°FEB°76 16322 PAGE 94 SEQ 6122 


DFRPVA.P11 T23 ADDRESS OVERFLOW ERPOR PHERie BRIT#9 AOE 
5098 2 INTO HERE 
§vg99 
5109 s:COMPARE DAT READ 
5191 0820362 183 
$102 
5193 020362 004037 0632070 JSR RO, @s8COMPAR sCOMPARE TWO BLOCKS OF MEMORY 
5104 620366 002354 WRFROM ‘ 3GOOD DATA STARTS FROM WRFROM 
5195 020370 003420 REINTO sTEST DATA STARTS FROM REINTO 
5196 0620372 000404 266, 3260, WORDS TO BE COMPARED 
5147 820374 0820400 28 sRETURN TO 28 ON FRROR 
5198 820376 820404 38 sRETURN TO 38 OWN NO ERROR 
§109 
$116 
5111 020400 104032 283 ERROR 32 sREAD HEADER AND DATA 
5112 620402 #00207 RTS pc 3ON CYLINDER 6, TRACK @ 
5113 sSECTOR @ AFTER A FORCED 
$114 3°AOE’ ERROR CAUSED 
$115 3AN ERROR 
$5116 stFf FIRST WORD IS 
$117 210633 (OCTAL) THEN 
5118 : AOE OVER FLOWED INTO HERE 
$119 020404 383 
$120 
5121 
$122 
5123 
$124 LESSSSSSSSSSSSESEHSSSHHSSHSSSSTOSSOHSHSOSSHSESHSSOTESSTSEOROSESS 
$125 s®TEST 24 FORMAT ERROR RHERI BIT 04 
5126 
§127 38 AN ATTEMPT WILL BE MADE TO WRITE DATA ON CYLINDER @ 
§128 2@ SECTOR ® TRACK @ WITH 18 BITS PER WORD WHEN THE 
§129 14 HEADER HAS 16 BITS PER WORD SET 
5130 38 
$131 3° THIS SHOULD GIVE FORMAT ERROR FER BIT 84 IN RHERI 
5132 36 
$133 4% THEN THIS SECTOR WILL BE READ IN THE CORRECT FORMAT 
$134 38 16 BITS PER WORD TO CHECK THAT NOTHING GOT WRITTEN 
5135 FPSSCHSHSSSSOSSSHSSSSSHSHSHOCSSOSHSSSSOSSSSSCSSHHHSOSESOSHOSCOCHGOS 
5136 020404 600004 TST24: SCOPE 
5137 920496 812706 #01000 MOV *@STACK,SP sRESET STACK 
5138 020412 012737 0800024 004470 MOV 824, 08TSTNM sSAVE TEST NUMBER 
5139 
51490 020420 004737 830060 JSR PC, @sCLOISK sSET RieRHCS1, R2-RHCS2 
5141 sR3°RHDS1, R4eRHERI 
5142 sGIVE RHe11 INITIALIZE 
$143 sSETUP UNIT NUBER 
5144 
5145 2FIRST WRITE HEADER AND DATA CYLINDER ©, TRACK @, SECTOR 0 
5146 2FILL WRITE FROM BUFFER WITH HEADER 
5147 
5148 020424 004037 0627704 JSR RO, @eFLHEAD 2?SAVE HEADER DATA IN WPRFROM 
5149 620430 002354 WRFROM sLOCATION WHERE SAVED 
$152 #20432 000004 4 NUMBER OF WORDS SAVED 
5151 020434 0818000 10000 sFIRST DATA WORD 
5152 020436 9809700 ] #SECOND DATA WORD 
$153 920449 9800000 @ sTHIRD DATA WORD 


Le el 


| 


—— 


MAINDEC 11 -DERPVoB MACY11 27(732) 18°FEBe76 16:22 PAGE 95 SEQ 6123 
DERPVB.P1i1 T24 FORMAT ERROP RHFRI BIT 84 

5154 620442 880000 0 sFOURTH DATA WORD 

$155 sFILL WRITE FROM BUFFER WITH DATA 

5156 020444 004037 027734 JSR RO, @eCLARFA sCLEAR 256, WORDS, FROM WRFROM+<402> 

5157 020459 002364 WRFPOMs<¢482> sSTARTING FROM WRFROMO<402> 

5158 020452 #00400 256. 3256, WORDS 

5159 0820454 800000 0 sFILL WITH 0 

5160 

5161 

$162 sFILL COMMAND 

5163 

5164 020456 004037 032024 ; JSR RO, @ORUN sSETUP TO RUN FOR DATA COMMAND 

5165 020462 000000 0 sCYLINDER 0 

$166 929464 000 eBYTE @ sSECTOR @ 

5167 020465 060 BYTE a sTRACK @ 

5168 620466 177374 ©256.°4 sWORD COUNT (DATA)#256.¢ 

5169 34 HEADER WORDS 

5170 020470 002354 WPFROM sBUS ADDRESS 

$171 sSTARTING ADDRESS OF DATA 

$172 sBUFFER s&s WRFROM 

5173 0620472 800000 v) 300 NOT INHIBIT BUS ADDRESS INCREMENT 

5174 020474 010000 FMT22 316 BITS PER WORD FORMAT 

5175 300 NOT INHIBIT ECC CORRECTION 

5176 300 NOT INHIBIT HEADER COMPARE 

5177 020476 002332 WRIFOR sGET READY TO DO A WRIFOR 

5178 sWRITE HEADER AND DATA WITH 62 IN RFCS1 

5179 

5160 

5181 9820500 604737 030140 JSR PC, @eCHECKT sCHECK DVA,RDY,“OL,DPR,ORY,VV 

$182 . 

$183 

5184 020504 013777 0604472 161446 MOV SERP4VEC,@RPVEC s:SET RPO4 VECTOR ADDRESS 

5185 3TO °TIME1° IF PeCLOCK IS PRESENT 

5186 sOR TO °TIME2*° IF PeCLOCK IS NOT PRESENT 

5187 s°TIME® WILL ONLY SAVE 

5188 sCURRENT CYLINDFR ADDRESS 

5189 sAND LOOK AHEAD REGISTERS 

5190 

5191 

5192 8620512 013746 002332 MOV @OWRIFOR,-(SP) sGET READY TO MOVE COMMAND 

5193 020516 052716 900101 BIS eGOLTE,(SP) sGET READY TO SET GO AND 

$194 sENABLE INTERRUPT 

5195 020522 612677 161444 MOV (SP)¢,@PRHCS1 3GO WITH 

5196 362 IN RHCS1 FOR WRITE HEADER AND DATA 

5197 sWITH INTERRUPT ENABLED 

5198 

5199 

5200 020526 104420 WAT sWAIT FOR RDY BIT TO SET 

5291 920530 0602172 RHCS1 sWATIT FOR RHCS1 REGISTER 

$202 020532 909200 ROY ;WAIT FOR RDY BIT IN RHCS1 REGISTER 

5203 020534 004704 2500, sALLOW 25000 MICRO SECONDS 

5204 20536 04704 2500, sRDY MUST SET BETWEEN 

5205 390 AND 5000@ MICRO SECONDS 

5206 

5207 920540 004737 0309960 JSR PC, @s8CLDISK sSET RieRHCS1, R2-RHCS2 

5298 sR3-RHDS{, R4-RHERI 


5209 sGIVE RHeit INITIALIZE 





MAINDECe11-DERPVoB 
DERPVB,.P1i1 


$210 
$211 
$212 
5213 
$2714 
$215 
5216 
$217 
$218 
$219 
$223 
$2721 
5222 
$223 
$224 
$225 
$226 
$227 
5228 
$229 
5230 
5231 
$232 
$233 
5234 
5235 
$236 
$237 
5238 
5239 
5240 
$241 
$242 
5243 
5244 
5245 
5246 
$247 
5248 
5249 
52590 
5251 
5252 
5253 
5254 
5255 
5256 
5257 
5258 
5259 
5260 
$261 
5262 
5263 


5264 


5265 


020544 
020550 
020552 
#20554 


920556 
620562 
020564 
020565 
020566 
#20570 


020572 
#20574 


020576 


020600 


020604 


020606 


020610 


029612 


820624 
820630 


020634 


920640 


T24 


904037 
002354 
990490 
000377 


004037 
000000 
800 
800 
177400 
002354 


002330 


004037 


004476 


004737 


013777 


013746 
052716 


012677 


194420 


MACY11 27(732) 
FORMAT FRROR RHFRI BIT 64 


027730 


032024 


030220 


030140 


094472 


161332 


161334 


18-FEB<76 16327 PAGE 96 


oP YTE 
eo BYTE 


sSETUP UNIT NUBER 
sNOW PPEPARF TO WRITE WITH WRONG FORMAT 


sFILL WRITE FROM ARUFFER 


JSR PO, @eCLAREA sCLEAP 256, WORDS, FROM WRFPROM 
WRFROM sSTARTING FROM WRFROM 

256. 3256, WORDS 

377 sFILL WITH 377 


sFILL WRITE DATA COMMAND 


JSR PA, @8RUN sSETUP TO RUN FOR DATA COMMAND 
a sCYLINDER @ 
a sSECTOR @ 
0 sTRACK 0 
-256. :¥ORD COUNT 8 256. 
WRFROW sBUS ADDRESS 
sSTARTING ADDRESS OF DATA 
sRUFFER = WRFROM 
r :D0 NOT INHIBIT BUS ADDRESS INCREMENT 
a 318 BITS PER WORD FORMAT 


300 NOT INHIBIT ECC CORRECTION 
300 NOT INHIBIT HEADER COMPARE 
WRIDAT sGET READY TO DO A WRIDAT 
sWRITE DATA WITH 60 IN RHCS1 


sSAVE REGISTERS FOR COMPARISON AFTER ATTEMPTED WRITE DATA 
sWITH WRONG FORMAT 


JSR RO, OSSAVER sSAVE REGISTERS 
RHWC sRHWC IS THE FIRST REGISTER SAVED 
SAVERE sSTARTING ADDRES OF WHERE 
sTHE REGISTERS ARE SAVED 
18, sNUMBER OF REGISTERS 
sSAVED = 18, 
JSR PC, @eCHECKT sCHECK DVA,RDY,4OL,OPR,DRY, VV 
MOV @SRP4VEC,@RPVEC 3SET RPO4 VECTOR ADDRESS 


:TO °TIME1® IF PeCLOCK IS PRESENT 

sOR TO “TIME2° IF PeCLOCK IS NOT PRESENT 
s°TIME’ WILL ONLY SAVE 

:CURRENT CYLINDER ADDRESS 

sAND LOOK AHEAD REGISTERS 


MOV @SWPIDAT,°(SP) sGET READY TO MOVE COMMAND 

BIS eGOLIE, (SP) :GET READY TO SET GO AND 
sENABLE INTERRUPT 

MOV (SP)¢,@RHCS1 3GO0 WITH 


960 IN RHCS1 FOR WRITE DATA 
sWITH INTERRUPT FNABLED 


WAT sWAIT FOR RDY BIT TO SET 


MAINDEC #11 °eDERPV=B MACY11 27(732) 18°FER©76 16322 PAGE 97 SEQ #125 
DEPPVB.Pi1 T24 FORMAT FPROR PHEP! BIT 84 
5266 020642 08062172 RHCS1 +WAIT FOP RHCS) REGISTER 
5267 020644 000200 RNY sWATT FOR ROY BIT IN RHCS! PEGISTER 
5268 620646 001522 asa, sALLOW 8590 MICRO SECONDS 
$269 @20659 601510 840, sRDY “UST SET BETWEEN 
$270 21¢@ AND 16980@ MICRO SECONDS 
$271 
$272 sCHANGE SAVED REGISTERS TO EXPECTED VALUE 
$273 #20652 904637 027762 JSP PO, @eFILLRE sMOV ©2486, INTO SAVED RHWC 
5274 020656 402164 RHWC sSAVED REGISTER TO CHANGE 
$275 020660 177412 ©2486, sDATA 
$276 020662 604037 0627762 JSR RO, @OFILLRE sMOV WRFROM¢<6,.02> INTO SAVED RHBA 
$277 920666 002166 RHRBA sSAVED REGISTER TO CHANGE 
5278 #20670 002374 WRFROM4<6 82> sDATA 
$279 
5280 020672 004037 0830732 JSR PA, @8CHREG sCHANGE BITS IN SAVED REGISTER 
5281 0820676 002172 RHCS1 sCHANGE RHCS1 REGISTER 
5282 
5283 920700 #00002 2 $2 BIT/BITS TO BE CHANGED 
5284 620702 0800001 1 sNEW VALUE OF sC IS 1 
$285 0670704 109900 se sCHANGE SC BIT 
5266 0620706 00001 1 sNEW VALUE OF TRE IS 1 
5287 620719 640000 TRE sCHANGE TRE BIT 
526A 
$289 8620712 604637 630732 JSR PO, @OCHREG sCHANGE BITS IN SAVED REGISTER 
$292 920716 0021790 RHCS2 sCHANGE RHCS2 REGISTER 
$291 
5292 920720 0800001 1 21 BIT/BITS TO BE CHANGED 
5293 020722 600001 1 :NEW VALUE OF OR IS 1 
5294 #20724 600200 OP sCHANGE OR BIT 
5295 
5296 020726 8664037 630732 JSP RO, @eCHREG sCHANGE BITS IN SAVED REGISTER 
5297 020732 002214 RHDS1 sCHANGE PHDS1 REGISTEP 
5298 
5299 920734 000902 2 32 BIT/BITS TO RE CHANGED 
5390 020736 900001 1 sNEW VALUE OF ATA IS 1 
5301 020740 100060 ATA sCHANGE ATA BIT 
5392 020742 #00001 1 sNEW VALUE OF ERP IS 1 
5303 020744 06840000 ERR sCHANGE ERR BIT 
5304 020746 084037 0627762 JSR RO, @0F ILLPE sMOV 1 INTO SAVED RHOST 
5395 020752 002176 RHDST sSAVED REGISTER TO CHANGE 
5306 020754 8600001 i sDATA 
5307 
5308 020756 053737 404622 604522 BIS QeATTENT, @8SAVERES24 sSET APPROPIATE ATA BITS 
5309 sFOR WORKING DRIVE IN 
5310 sSAVED RHAS LOACTION 
5311 
5312 0620764 04037 030732 JSR RO, @8CHREG sCHANGE BITS IN SAVED REGISTER 
5313 20779 0602174 RHER1 sCHANGE RHER1 REGISTER 
5314 
5315 020772 600001 1 31 BIT/BITS TO BE CHANGED 
5316 020774 0609001 i sWEW VALUE OF FER I8 1 
5317 @20776 000020 FER sCHANGE FER BIT 
$318 0219000 0617746 161164 MOV @RHCS2,-( SP) sGET RHCS2 
$319 #21904 042716 177477 BIC e°C<IRIOR>, (SP) s;KEEP IPR AND OR 
5320 021910 0642737 980300 004502 BIC @TRIOR, @@SAVERFe4;CLEAR SAVED IR OR 


$321 21016 652637 004502 RIS (SP), @8SAVEREC43SET OR IR AS REQUIRED 








MAINCEC#11-DERPV<-B 
DOFPPVB P11 T24 

5322 

5323 

5324 

5325 

5326 

$327 @217922 904037 
5328 

53279 0271026 094476 
5330 421030 0802242 
$331 421032 0600022 
5332 021034 0621040 
5333 021736 021044 
5334 

5335 #271940 194057 
$336 02109042 080207 
$337 

5338 

5339 

5340 

5341 

5342 

5343 

5344 

5345 021044 

5346 

5347 0821044 904737 
5348 

5349 

$352 

5351 

5352 021050 004037 
5353 0421954 002354 
5354 0219056 8600400 
5355 921960 800000 
5356 

5357 

5358 

5359 021962 604037 
5364 821966 0803420 
5361 921970 000400 
$362 21972 125252 
5363 

5364 

$365 

5366 

5367 021974 0604037 
5368 421100 #00000 
5369 021102 000 
5372 921103 600 
5371 021194 177400 
5372 921106 603420 
5373 

5374 

5375 021110 ene8000 
5376 021112 614000 
5377 


2 mii 


MACY11 27(732) 


031740 


027730 


027730 


@32024 


1@eFER©76 16372 PAGE 98 SEQ 0126 
FORMAT ERPOR RHFRI RIT 64 


BYTE 
BYTE 


sCOMPARF REGISTERS REFOPE WRITE DATA WITH AFTER ATTEMPT 


JSR PO, @8COMREG sCOMPARE SAVFO REGISTERS WITH 
sPRESENT VALUE 

SAVERF sGOOD DATA SAVED IN °SAVERE’ 

we sTEST DATA STARTING FROM “RHWC’ 

if, 316, REGISTERS TO BE COMPARED 

18 sRETUPN TO 18 ON ERROR 

28 sRETUPN TO 28 ON NO FRROR 

EPROR $7 sATTEMPTING TO WRITE DATA 

RTS pe sWITH WRONG FORYAT BIT CAUSED 


:IMPROPFR REGISTER CHANGE 
3GOOD DATA GIVES WHAT SHOULD 
3BE THERE 

sRECETVED DATA GIVES WHAT WAS 
:THERE AFTER ATTEMPTED WRITE 


sNOW PREPARE TO READ WITH CORRECT FORMAT TO CHECK 
sTHAT NOTHING GOT WRITTEN 


JSP PC, @sCLOISK sSET PieRHCS1, R2-RHCS2 
sR3I-RHDS1, P4-RHERI 
sGIVE RHeli INITIALIZE 
sSETUP UNIT NUBER 

sFILL WRITE FROM BUFFER WITH EXPECTED DATA 


JSR RO, @sCLAREA sCLEAR 256. WORDS, FROM WRFROM 
WRFROM sSTARTING FROM WRFROM 

256. 3256, WORDS 

t) sFILL WITH @ 


sFILL READ INTO BUFFEP WITH 125252 


JSR RO, @eCLAREA sCLEAR 256, WORDS, FROM REINTO 
REINTO sSTARTING FROM REINTO 

256. 3256, WORDS 

125252 sPILL WITH 125252 


sFILL COMMAND TO READ DATA 


JSR RO, @ORIUN sSETUP TO RUN FOR DATA COMMAND 
® sCYLINDER @ 

v) sSECTOR @ 

Cd) sTRACK 6 

#256. sWORD COUNT s 256, 

REINTO sBUS ADDRESS 


sSTARTING ADDRESS OF DATA 

sBUFFER s REINTO 
@ 300 NOT INHIBIT BUS ADDRESS INCREMENT 
FMT22:ECI 216 BITS PER WORD FORMAT 

s INHIBIT ECC CORRECTION 


MATNDEC#11-DERPV<-B MACY11 27(732) 18°FER<76 16:22 PAGE 99 SEQ #127 
DFRPVB,.P11 T24 FORMAT ERROR RHFRI BIT #4 

5378 :D0 NOT INHIBIT HEADER COMPARE 

5379 021114 0602334 READAT sGET PEADY TO DO A READAT 

5380 sREAD DATA WITH 70 IN PHCSI 

5381 

5382 

5383 sSAVE RFGISTERS FOP COMPARISON AFTER NOPMAL PFAD 

5384 021116 0804037 630220 JSP FO, @8SAVEP sSAVE REGISTERS 

$385 021122 002164 RHWC sRHWC IS THF FIRST REGISTER SAVED 

5386 021124 604476 SAVERE sSTARTING ADORES OF WHERE 

$387 sTHE REGISTFRS ARE SAVED 

$388 821126 0600022 18, sNUMBER OF REGISTERS 

53Aa9 sSAVED = 16, 

$390 

$391 921134 0604737 0630140 JSP PC, @S8CHECKT sCHECK DVA,POY,MOL,/DPR,DRY, VV 

5392 

5393 

$394 021134 613777 904472 161716 MOV @SRP4VEC,@RPVEC sSET RPO4 VECTOR ADORESS 

$395 sTO °TIME1’ IF PeCLOCK IS PRESENT 

$396 sOR TO °TIME2° IF PeCLOCK IS NOT PRESENT 

5397 s°TIME*’ WILL ONLY SAVE 

5398 sCURRENT CYLINDER ADDRESS 

5399 34ND LOOK AHEAD REGISTERS 

5400 

5401 

$492 21142 013746 0602334 MOV @GREADAT.°(SP) sGET READY TO “OVE CO¥MAND 

5403 921146 052716 690101 BIS eGOLIE, (SP) :GET READY TO SET GO AND 

5404 sENABLE INTERPUPT 

5405 0621152 @12677 161014 MOV (SP)¢,@RHCS1 3GO0 WITH 

5406 270 IN RHCS1 FOR READ DATA 

5407 sWITH INTERRUPT ENARLED 

5408 

5409 

5419 9021156 104420 WAT sWAIT FOR RDY BIT TO SET 

5411 021160 002172 RHCS1 sWAIT FOR RHCS1 REGISTER 

$412 0821162 900200 RDY sWAIT FOR RDY BIT IN RHCS1 REGISTER 

5413 021164 001614 908, sALLOW 9080 MICRO SECONDS 

$414 9921166 0601507 839, sRDY MUST SET BETWEEN 

5415 9699 AND 17470 “ICRO SECONDS 

5416 

$417 sCHANGE SAVED REGISTERS TO EXPECTED VALUE 

$418 0621170 904037 027762 JSR RO, OOF ILLRE sMOV REINTO*<256.,02> INTO SAVED PHBA 

5419 021174 0692166 RHBA sSAVED REGISTER TO CHANGE 

5420 021176 0604420 REINTO+*<256,02> sDATA 

5421 921200 0604937 27762 JSR RO, @8FILLRE s“OV @ INTO SAVED RHWC 

5422 21204 002164 RHWC sSAVED PEGISTER TO CHANGE 

5423 421206 880000 0 sDATA 

5424 021210 604037 627762 JSP RO, @OFILLRE sMOV 1 INTO SAVED RHDST 

$425 621214 602176 RHDST sSAVED REGISTER TO CHANGE 

5426 021216 600001 i sDATA 

$427 021220 017746 160744 MOV @RHCS2,°( SP) sGET RHCS2 

$428 021224 642716 177477 BIC e°C<IRIOR>,(SP) ;KEEP IR AND OR 

5429 021230 042737 600300 004502 RIC SIP!OR, @9SAVERES4;CLEAR SAVED IR OR 

5430 21236 052637 004502 BIs (SP)¢,@8SAVERE+4;SET OR IP AS REQUIRED 

5431 

5432 


5433 








MAINDEC "11 -DERPV-R MACY11 27(732) I18eFER©76 163272 PAGE 100 SEQ 6128 
DERPVB.Pii T24 FORMAT ERROR PHFRI BIT #4 
5434 
5435 sCOMPARF PEGISTERS REFORE PEAD WITH AFTER 
5436 
$437 21242 904037 031040 JSR RA, @8COMREG sCOMPARE SAVED REGISTERS WITH 
$438 sPRESENT VALUE 
5439 #21246 004476 SAVERE 3GOOD DATA SAVED IN °SAVERE*? 
$440 021250 002242 we sTEST DATA STARTING FROM °RHWC? 
$441 921752 #90022 18, 318, REGISTERS TO BE COMPARED 
$442 @21254 621260 38 sRETURN TO 38 ON ERROR 
$443 021256 921264 4s sRETURN TO 48 ON NO ERROR 
5444 
5445 021260 104033 363 ERROR 33 sREAD DATA AFTER AN 
$446 21252 600207 RTS pc sATTEMPTED WRITE WITH WRONG 
$447 s IMPROPER REGISTER CHANGE 
5448 sFORMAT CAUSED 
$449 3GOOD DATA GIVES WHAT SHOULD 
5450 sRE THERE 
5451 sRECEIVED DATA GIVES WHAT 
5452 sWAS THERE AFTER READ 
$453 
5454 sCOMPAPFE DATA READ AFTEP ATTEMPTED WRITE WITH 
5455 sWRONG FORMAT BIT 
5456 21264 483 
5457 
5458 0621264 604037 632070 JSP RO,@eCOMPAR sCOMPARE TWO BLOCKS OF MEMORY 
5459 421270 002354 WRFROM 3GOO0D DATA STARTS FROM WRFROM 
$460 8621272 003429 REINTO sTEST DATA STARTS FROM PREINTO 
5461 621274 000400 256. 3256. WORDS TO BE COMPARED 
5462 021276 0821302 $8 sRETURN TO SS ON ERROR 
$463 021300 0621306 68 sRETUPN TO 68 ON NO ERROR 
5464 
5465 
$466 821302 104034 583 ERROR 34 sDATA READ AFTER AN ATTEMPT 
5467 021304 609207 PTS pc 3TO WRITE WITH WRONG FORMAT 
5468 2WAS INCORRECT 
$469 
5470 021306 68: 
5471 
5472 PPOCSSSSOHSSHSSTSSESSSSSOSSSSSSOSSOSSHSSHOSESOSSESSHOHSSOEHROROOS 
5473 s*TEST 25 FORMAT ERROR RHERI BIT #4 
5474 
5475 Be AN ATTEMPT IS MADE TO READ DATA WITH WRONG 
5476 ne FORMAT BIT 
5477 7° 
5478 3% FORMAT ERROR BIT 84 IN RHERY SHOULD SET 
5479 3¢ NO DATA SHOULD BE READ 
5480 
54801 SOSSSSHHSHSESHSHSSOSCSHSSSCSSESSESOSSFESOSETSCSESHECHOHOCTESCOO ROS 
5462 €921306 000004 TST25: SCOPE 
5483 21310 612706 901000 MOV @STACK,SP sRESET STACK 
5484 21314 612737 8600025 004470 MOV ¢25,@0TSTNM sSAVE TEST NUMBER 
5485 
5486 921322 004737 030960 JSR PC, @sCLOYSK sSET RieRHCS1, R2-RHCS2 
5487 sR3°RHDS1, R4-RHERI 
5468 sGIVE RH-ii INITIALIZE 
5489 sSETUP UNIT NUBER 


te RT TTT 


WAR INDEC #11 -DERPV<B 
OF RPVB PII T25 
5490 
5491 
$492 021326 0604037 
$493 021332 002354 
5494 021334 090400 
$495 9071336 107070 
5496 
5497 
5498 
$499 0621340 804037 
5500 021344 003420 
5501 021346 600400 
5592 021350 107970 
5503 
5504 
5505 
5506 
5507 021352 904037 
5508 9621356 900000 
5509 21360 000 
5519 021361 000 
5511 421362 177400 
5512 921364 603420 
5513 
5514 
5515 0621366 #00000 
5516 921370 0904000 
$517 
5518 
5519 0821372 002334 
5520 
5521 
$522 
5523 
$524 0271374 094037 
$525 021400 0602164 
$526 021402 004476 
5527 
$526 921404 #00022 
5529 
$530 
$531 021406 004737 
$532 
5533 
$534 421412 013777 
5535 
5536 
$537 
5538 
$539 
5540 
5541 
5542 021420 013746 
5543 421424 052716 
$544 
5545 021430 012677 


MACY11 27(732) 
FORMAT FRROR RHERI BIT 84 


027730 


027730 


030140 


094472 


002334 
000101 


160536 


160540 


18°FEB<-76 16:27 PAGE 101 SEQ 0129 


BYTE 
BYTE 


sFILL WRITE FROM BUFFER WITH 137070 


JSR RA, @eCLAREA sCLEAR 256, WORDS, FROY WREROM 
WRFPROM sSTARTING FROM WRFROM 

256, 3256, WORDS 

107079 sPILL WITH 187070 


sFILL RFAD INTO BUFFER WITH 107070 


JSP RO, @SCLAREA sCLEAR 256, WORDS, FROM PEINTO 
REINTO sSTARTING FROM REINTO 

256. 3256, WORDS 

197070 sFILL WITH 187070 ‘ 


sFILL COMMAND TO READ WITH WRONG FORMAT 


JSR RA, @8RUN sSETUP TO RUN FOR DATA COMMAND 
1) sCYLINDER @ 

a sSECTOR @ 

a sTRACK @ 

256. sWORD COUNT 8 256. 

REINTO #8US ADDRESS 


sSTARTING ADORESS OF DATA 

sBUFFER s REINTO 
a 900 NOT INHIBIT BUS ADDRESS INCREMENT 
ECI 218 BITS PER WORD FORMAT 

sINHIBIT ECC CORRECTION 

300 NOT INHIBIT HEADER COMPARE 
READAT sGET READY TO DO A READAT 

sREAD DATA WITH 76 IN RHCS1 


sSAVE REGISTERS FOR COMPARAISON AFTER READ 


JSP RO, @SSAVER sSAVE REGISTERS 
RHWC gRHWC IS THE FIRST REGISTER SAVED 
SAVERE sSTARTING ADDRES OF WHERE 
sTHE REGISTERS ARE SAVED 
18, sNUMBER OF REGISTERS 
sSAVED = 18, 
JSR PC, @SCHECKT sCHECK DVA,RDY,“4OL,DPR,DRY,VV 
MOV @SRP4VEC,@RPVEC :SET RPO4 VECTOR ADORESS 


sTO °TIME1® IF PeCLOCK IS PRESENT 

sOR TO °TIME2° IF P-CLOCK IS NOT PRESENT 
s°TIME® WILL ONLY SAVE 

sCURRENT CYLINDER ADDRESS 

sAND LOOK AWEAD REGISTERS 


MOV @SPREADAT,-(SP) ;sGET READY TO MOVE COMMAND 

BIS eGO!TE, (SP) sGET READY TO SET GO AND 
sENABLE INTERRUPT 

MOV (SP)¢,@RHCS1 3GO0 WITH 


2 


MAINDEC $11 -DERPV<B 
DERPVB.P11 


5546 
$547 
5548 
$549 
5550 
5551 
$552 
5553 
5554 
5555 
5556 
$557 
5558 
5559 
5560 
5561 
5562 
5563 
5564 
$565 
55066 
$567 
5568 
5569 
5570 
$571 
5572 
5573 
5574 
$575 
5576 
$577 
5578 
5579 
5580 
5561 
$582 
5583 
5564 
55865 
5566 
5587 
5568 
$589 
5590 
$591 
5592 
5593 
5594 
5595 
5596 
5597 
5598 
$599 
5600 
5601 


021434 
#21436 
921440 
021442 
021444 


421446 
021452 


021454 
021456 
021460 
021462 
021464 


021466 
021472 


021474 
021476 
021500 
021502 
021504 
021506 
021512 
021514 


021516 
021522 


021524 
021526 
421530 


021532 
621540 
021544 


021550 
921556 


T25 


104420 
602172 
000200 
001522 
001519 


004037 
002172 


900002 
000001 
140000 
600001 
840000 


004037 
002214 


040902 
600001 
100000 
860001 
040000 
004037 
002176 
O90A01 


004037 
002174 


053737 
017746 
042716 


042737 
052637 


004037 


MACY11 27(732) 
FORYAT ERROR PHERI BIT 84 


030732 


030732 


027762 


030732 


094622 


160424 
177477 
000300 
004502 


031040 


004522 


004502 


18°FEB°76 16222 PAGE 182 SEQ 6130 


WAT 
RHCS1 
RDY 
850, 
840, 


3 CHANGE 


JSR 
RHCS! 


379 IN RHCS1 FOR RFAD DATA 
sWITH INTERPUPT ENABLED 


sWAIT FOR RDY BIT TO SET 

sWAIT FOR RHCS1 REGISTER 

sWAIT FOR RDY BIT IN RHCS1 PEGISTER 
sALLOW 8500 MICRO SECONDS 

sROY MUST SET BETWEEN 

2100 AND 16900 MICRO SECONDS 


SAVED REGISTERS TO EXPECTED VALUE 


RO, @SCHREG sCHANGE BITS IN SAVED REGISTER 
sCHANGE RHCS1 REGISTER 


92 BIT/BITS TO BE CHANGED 
sNEW VALUE OF SC IS 1 
sCHANGE S&C BIT 

sNEW VALUE OF TRE IS 1 
sCHANGE TRE BIT 


RA, @SCHREG sCHANGE BITS IN SAVED REGISTER 
sCHANGE RHDS1 REGISTEP 


32 BIT/BITS TO BE CHANGED 
sNEW VALUE OF ATA I8 1 
sCHANGE ATA BIT 

sNEW VALUE OF ERR IS 1 
sCHANGE ERR BIT 


RO, OOF ILLRE s4OV 1 INTO SAVED RHDST 
sSAVED REGISTER TO CHANGE 
sDATA 

PO, @OCHREG sCHANGE BITS IN SAVED PEGISTER 


sCHANGE RHER1 REGISTER 


31 BIT/BITS TO BE CHANGED 
sNEW VALUE OF FER IS 1 
sCHANCE FER BIT 


@CATTENT, OS SAVERES24 sSET APPROPTATE ATA BITS 
sFOR WORKING DRIVE IN 
sSAVED RHAS LOACTION 

@RHCS2,°( SP) sGET RHCS2 

e°C<IR{OR>,(SP) sKEEP IP AND OR 

CIRIOR, OSSAVERES4;CLEAR SAVED IR OR 

(SP)¢,S@SAVERE¢4;SET OR IR AS REQUIRED 


sCOMPARE REGISTERS BEFORE WRITE DATA WITH AFTER ATTEMPT 


JSP 


RO, @ECOMREG sCOMPARE SAVED REGISTERS WITH 
sPRESENT VALUE 


en 


MAINDFC#11eNDERPVeR MACY11 27(732) 18eFERS76 16322 PAGF 103 SEQ 0131 
DERPVR.PII T25 FORMAT FRROP PHFPI BIT #4 


5602 021566 0604476 SAVERF :G090D DATA SAVED IN “°SAVERE’ 
5643 021570 02242 we sTEST DATA STARTING FROM “RHWC’ 
§60¢4 821572 90022 if, 318, PEGISTERS TO BE COMPAPED 
5695. 821574 #21609 1$ sRETUPN TO 18 ON FRPROR 

5696 421576 821634 28 sPETURN TO 28 ON NO ERROR 

5607 : 

5608 21609 104957 183s FERPOR 57 sATTE“PTING TO READ DATA 

5609 A21602 AvezZa7 2TS pe 24ITH WRONG FORMAT BIT CAUSED 
5614 s IMPROPER RFGISTER CHANGE 

5611 350900 DATA GIVFS WHAT SHOULD BE 
5612 : THERE 

5613 sPECEIVED DATA GIVES WHAT WAS THERE 
5614 sAFTER READ DATA 

5615 ; 
5616 sCOMPARE READ INTO S'FFER TO CHECK THAT NOTHING WAS READ 
5617 821604 283 

5618 

5619 471604 803037 @3277a JSR RA, @eCOMPAR sCOMPARE TWO ARLOCKS OF MEMORY 
5670 @21610 802354 WRFPOM 3GOOD DATA STARTS FROM WRFROM 
5621 21612 903420 REINTO :TEST DATA STARTS FRO” REINTO 
$622 421614 #70400 256. 3256, WORDS TO BE COMPARED 

$623 021616 821622 38 sRETURN TO 3$ ON ERROR 

5624 921620 08214526 46 sRETURN TO 48 ON NO ERROR 

5625 

5626 

56427 €21622 104334 3$3 ERROR 34 gATTEMPT TO READ 

5628 21624 000207 PTS pc sWITH WRONG FORMAT BIT 

5629 sCHANGED READ INTO BUFFER 

5630 p 27G00D DATA GIVES WHAT SHOULD 
5631 . 3;BE THERE 

563? sBAD DATA GIVES WHAT WAS 

5633 sTHERE AFTER PEAD DATA 

5634 

5635 021626 463 

5636 

5637 

5638 PFSSSSSSHSSHSSSSSSSSSSSSSSSSHSSSSHHSSHSSHHSSESSOHSSHHSHHSSHSSEHCHOSS 
5639 2*TEST 26 REGISTER MODIFICATION REFUSED BIT #2 RHERY 

564¢F 

5641 3% CYLINDERi TRACK 0, SECTOR @ WILL BE WRITTEN WITH 

5642 7° 200 WORDS OF 2000 BY A WRITE HEADER AND DATA COMMAND 
5643 3@ 

5644 28 THE HFADS WILL BE BROUGHT TO CYLINDER @ BY A SEEK 

5645 3° . 

5646 2” A READ DATA COMMAND WILL BE GIVEN TO CYLINDER 1 TRACK @ 
$647 3¢ SECTCR @ 150, WORDS, THIS WILL TAKE AT 

5048 2% LEAST 7 MILI SECONDS, IMMEDIATELY AFTER GO AT 

5649 34 IMPLIED SEFK TIME, WRITE INTO A REGISTER WILL BE ATTMEPTED 
5650 36 THE’ READY WILL BE WAITED ON TO COMPLETE THE READ DATA 
5651 78 THEN ALL REGISTERS WILL BE COMPARED AND THE DATA READ 
$652 36 SHOULD BE GOOD 

5653 28 THIS WILL BE REPEATED FOR RHCS1, RHER1, RHDST, RHER2 
5654 3 RHOF, PNCA, RHER3 

5655 

5656 PESTO OTLIRSEUSSSOP OO DSUSSSFEETESOGTSESSESSOEESSSESPHSSTTHBEROTHGS 
$657 021626 600004 TST26: SCOPE 


MAINDEC#11-eDERPV<-B 
DERPVB,P1i1 


5658 
5659 
5660 
5661 
5662 
5663 
5664 
5665 
5666 
5667 
5668 
5669 
5670 
$671 
5672 
5673 
5674 
5675 
5676 
5677 
5678 
5679 
5680 
5681 
5682 
5683 
5684 
56A5 
54686 
5687 
5688 
5689 
5690 
5691 
$692 
5693 
5694 
5695 
5696 
5697 
$698 
5699 
5700 
5701 
$702 
5703 
S704 
5705 
5706 
$707 
5708 
$709 
$710 
$711 
$712 
$713 


821630 
021634 


021642 


921646 
021654 


@21662 
#21662 


021666 
#21672 
021674 
021676 
021700 
021792 
021704 


021706 
071712 
021714 
021716 


021720 
021724 
021726 
021727 
021730 
021732 


021734 
021736 


021740 


021742 


621746 


T26 


012796 
012737 


004737 


012737 
012737 


004737 


904037 
002354 
008004 
010001 
000000 
000000 
900000 


004037 
002364 
000400 
002000 


004037 
00001 
600 
900 
177464 
002354 


6800000 
018030 


002332 


004737 


013777 


MACY11 27(732) 


002172 


090007 


027704 


027730 


038140 


094472 


004470 


004626 
004634 


160204 


18°FEB°76 16822 PAGE 104 
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ST223 


BYTE 
BYTE 


“ov STACK, SP :RESET STACK 
MOV 926,@8TSTNM SAVE TEST NUY“BER 
JSR PC, @eCLOISK :SET RieRHCS1, R2°RHCS2 


sR3I@-RHDS1, R4-RHERI 

sGIVE RHe1l INITIALIZE 

sSETUP UNIT NUBER 
MOV sRHCS1,@8TMPA sFIRST REGISTER TO BE TESTED 
MOV 67, @e8TMPS sNUMBER OF REGISTERS TO BE TESTED 
sPREPARF TO WRITE HEADEP AND PATA CYLINDER 1, TRACK @, SECTOR @ 
sFILL WRITE FROM BUFFER WITH HEADER 


JSR PC, @eCLOISK sSET PieRHCS1, R2°-RHCS2 
sR3°-RHDS1, R4-RHERI 
sGIVE RHei1 INITIALIZE 
sSETUP UNIT NUBER 


JSR RO, @6FLHEAD SAVE HEADER DATA IN WRFROM 

WRFROM sLOCATION WHERE SAVED 

& sNUMBER OF WORDS SAVED 

10001 sFIRST DATA WORD 

Qa 2:SECOND DATA WORD 

vd sTHIRD DATA WORD 

e sFOURTH DATA WORD 

sFILL WRITE FROM BUFFER WITH DATA 

JSR P@,@SCLAREA #:CLEAR 256, WORDS, FROM WRFROMe<402> 
WRFROMO<482> sSTARTING FROM WRFROM+<482> 
256, 3256, WORDS 

2900 sFILL WITH 2006 


sFILL COMMAND 


JSR RO, 88RUN SETUP TO RUN FOR DATA COMMAND 
i sCYLINDER 1 
(4) sSECTOR @ 
a sTRACK 0 
-200.,°4 sWORD COUNT (DATA)#260,.¢ 
34 HEADER WORDS 
WRFROM 78US ADDRESS 


sSTARTING ADORESS OF DATA 

sBUFFER @ WRFROM 
® 3D0 NOT INHIBIT BUS ADDRESS INCREMENT 
FMT22 316 BITS PER WORD FORMAT 

300 NOT INHIBIT ECC CORRECTION 

300 NOT INHIBIT HEADER COMPARE 
WRIFOR sGET READY TO DO A WRIFOR 

sWRITE HEADER AND DATA WITH 62 IN RHCS1 


JSR PC, @SCHECKT sCHECK DVA,RDY,MOL,DPR,DRY,VV 


MOV @SRPAVEC,@RPVEC ;SET RP®4 VECTOR ADDRESS 
:TO °TIME1’ IF PeCLOCK IS PRESENT 


SEQ #132 
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5714 
5715 
$716 
$717 
5718 
5719 
5720 
5721 
$722 
5723 
$724 
$725 
$726 
$727 
5728 
5729 
5730 
5731 
$732 
5733 
5734 
$735 
5736 
5737 
5738 
$739 
5740 
5741 
$742 
5743 
5744 
5745 
5746 
5747 
5748 
$749 
5750 
5751 
$752 
5753 
5754 
5755 
5756 
5757 
5758 
5759 
5760 
5761 
5762 
5763 
5764 
5765 
5766 
5767 
5768 
5769 


021754 
021760 


621764 


021770 
021772 
021774 
021776 
022000 


022002 


922006 
022012 


022014 


022022 
022026 


022036 
022040 
022042 
022044 
022046 


T26 


013746 
052716 


012677 


104420 
002172 
000200 
094704 
004704 


004737 


004037 
880000 


013777 


013746 
052716 


012077 


104420 
062214 
600200 
002776 
001582 
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160202 


030140 


004472 


002340 
000101 


160134 
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sOR TO °TIME2*® IF PeCLOCK IS NOT PRESENT 
s°TIME’ WILL ONLY SAVE 

sCURRENT CYLINDER ADDPESS 

sAND LOOK AHEAD REGISTERS 


MOV @OWRIFOR,-(SP) sGET READY TO MOVE COMMAND 

BIS eGO!TIE, (SP) sGET READY TO SET GO AND 
sFNABLE INTERRUPT 

MOV (SP)¢,@RHCS1 3GO WITH 


962 IN RHCS1 FOR WRITE HEADER AND DATA 
sWITH INTERRUPT ENABLED 
sTIME ITS NOT IMPORTANT 


WAT sWAIT FOR RDY BIT TO SET 

RHCS1 . :WAIT FOR RHCS{ REGISTER 

RDY sWATT FOR ROY BIT IN RHCS1 REGISTER 
2500, sALLOW 25000 MICRO SECONDS 

2500, sRDY MUST SET BETWEEN 


29@ AND 50000 MICRO SECONDS 
sNOW BRING THE HEADS TO CYLINDER 6 


JSR PC, @8CHECKT sCHECK DVA,RDY.MOL,OPR,DRY, VV 
JSR RO, @SSEEKCY sSEEK FOR 

@ sCYLINDER @ 

MOV @ORP4VEC,@RPVEC 3SET RPO4 VECTOR ADDRESS 


sTO °TIME1° IF PeCLOCK IS PRESENT 

sOR TO °TIME2° IF PeCLOCK IS NOT PRESENT 
s°TIME’ WILL ONLY SAVE 

sCURRENT CYLINDER ADDRESS 

sAND LOOK AHEAD REGISTERS 


MOV @®SEECOM,-(SP)  3GET READY TO MOVE COMMAND 

BIs eGOLTE, (SP) sGET READY TO SET GO AND 
sENABLE INTERRUPT 

MOV (SP), @RHCS1 3GO0 WITH 


94 IN RHCS1 FOR SEEK 
sWITH INTERRUPT ENABLED 


WAT sWAIT FOR ORY BIT TO SET 

RHDS1 sWAIT FOR RHDS1 REGISTER 

DRY sWAIT FOR DRY BIT IN RHDS! REGISTER 
1534, sALLOW 15340 MICRO SECONDS 

834, sORY MUST SET BETWEEN 


97000 AND 2368@ MICRO SECONDS 
sPREPARE FOR A READ DATA 
:FILL WRITE FROM AUFFER WITH EXPECTED DATA FROM READ 


cc LL LLL LLL 
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5770 
$771 
5772 
$773 
5774 
5775 
5776 
5777 
5778 
$779 
5780 
57e@1 
5782 
5783 
§7e4 
5785 
5786 
5767 
5788 
§7a9 
5790 
5791 
5792 
5793 
5794 
§795 
§796 
5797 
5798 
5799 
5800 
5eal 
5802 
5893 
5604 
5805 
5806 
5807 
$808 
5209 
5ea1a 
$811 
$812 
5613 
5914 
§815 
5816 
$617 
$618 
5819 
5820 
$871 
5922 
5623 
5824 
5825 


922059 
022954 
022956 
022060 


022062 
22066 
022070 
022072 


022074 
922100 
022102 
022104 


#22106 
@22112 
#22114 
@22115 
022116 
022120 


022122 
022124 


022126 


022130 
922134 
#22136 
022148 
#22142 


022146 


022154 


T26 


004937 
082354 
000226 
002000 


004037 
003030 
000152 
900077 


004037 
003420 
600400 
900077 


004037 
000001 
000 
000 
177552 
003420 


000900 
414000 


002334 


904037 
002164 
904476 

“900022 
004737 


013777 


013746 
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JSR 
WRFROM 
1590, 
2000 


027730 RA, @ACLAREA 


027730 JSR RO, @6CLAREA 
WRFROM4<150,02> 
196, 


77 


SEQ 0134 


sCLEAR 150, WORDS, FROM WRFROM 
*STARTING FROM WRFROM 

2150, WORDS 

sFILL WITH 2000 


sCLEAR 106, WORDS, FROM WREROM+<150.02> 
sSTARTING FROM WRFROM+<150,02> 

1106, WORDS 

sFILL WITH 77 


:FILL PEAD INTO BUFFEP WITH DATA OTHER THAN WHAT IS EXPECTED 


JSP RO, @8CLAREA 
REINTO 
256. 


77 


@2 730 


:FILL READ DATA COMMAND 
JSR R@,@eRUN 
1 
BYTE 8 
BYTE @ 
-150, 
REINTO 


0 
ECILFMT22 


READAT 


sCLEAR 256, WORDS, FROM REINTO 
sSTARTING FROM REINTO 

3256, WORDS 

FILL WITH 77 


sSETUP TO RUN FOR DATA COMMAND 

sCYLINDER 1 

sSECTOR @ 

sTRACK @ 

sWORD COUNT = 150, 

sBUS ADDRESS 

sSTARTING ADDRESS OF DATA 

sBUFFER = REINTO 

300 NOT INHIBIT BUS ADDRESS INCREMENT 
916 BITS PER WORD FORMAT 

sINHIBIT ECC CORRECTION 

300 NOT INHIBIT HEADER COMPARE 

sGET READY TO DO A READAT 


sPEAD DATA WITH 70 IN RHCS1 


sSAVE REGISTERS FOR COMPARISON AFTER ATTEMPTED WRITE 
sINTO A REGISTER WHILE THE READ IS GOING ON 


JSR PO,@8SAVER 
RHWC 


SAVERE 


030140 JSR PC, @SCHFCKT 


004472 160004 MOV OPPRP4VEC,@RPVEC 


002334 MOV @SREADAT,=-( SP) 


sSAVE REGISTERS 

sRHWC IS THF FIRST REGISTER SAVED 
sSTARTING ADDRES OF WHERE 

sTHE REGISTERS ARE SAVED 

sNUMBER OF REGISTERS 

sSAVED = 186, 


sCHECK DVA,RDY,MOL,DPR,DRY,VV 


sSET RPO4 VECTOR ADDRESS 

sTO “TIME1° IF PeCLOCK IS PRESENT 

sOR TO °TIME2° IF PeCLOCK IS NOT PRESENT 
s°TIME*’ WILL ONLY SAVE 

sCURRENT CYLINDER ADDRESS 

sAND LOOK AHEAD REGISTERS 


_SGET READY TO MOVE COMMAND 


— en NL LL LL LLL LT 
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5826 022160 952716 000101 BIS sGOLTE,(SP) sGET READY TO SET GO AND 
$827 sENABLE INTERRUPT 
$82@ 022164 812677 160002 MOV (SP)¢,@RHCS1 3GO WITH 
$829 970 IN RHCS1 FOR READ DATA 
5830 sWITH INTFERPUPT ENABLED 
$831 
5832 622170 013700 004626 MOV asTvPee, RO sSET UP PO FOR WRITE 
5833 022174 612730 002006 MOV SBITILSRITZIBITIO,@CRO)* sATTFMPT TO WRITE INTO 
5A34 sPREGISTERS DURING IMPLIED SEEF 
$835 82220@ 610037 904626 MOV RA, @OTMPO sSAVE OFF RO 
S836 
$837 :NOW RMR IS SET BUT THE COMPLETION OF READ MUST BF 
5838 sWAITFED ON 
$839 
sean 
$841 022204 104420 WAT :WAIT FOR ROY BIT TO SET 
5842 #22206 0602172 RHCS1 sWAIT FOR RHCS1 REGISTER 
5843 422210 900200 RDY sWAIT FOR RDY BIT IN RHCS1 REGISTER 
$844 022212 002237 1183, sALLOW 11830 “ICRO SECONDS 
$845 022214 0602237 1163, sRDY MUST SET BETWEEN 
5846 29@ AND 23660 MICRO SECONDS 
$647 sCHANGE SAVED REGISTERS TO EXPECTED VALUE 
5948 
5849 622216 004937 430732 JSR RA, @SCHREG sCHANGE BITS IN SAVED REGISTER 
5850 022222 602226 RHCC sCHANGE RHCC REGISTER 
5°51 
$852 622224 009001 1 31 BIT/BITS TO BE CHANGED 
5853 022226 000001 1 sNEW VALUE OF BIT@ IS 1 
$854 622230 #800001 BITA sCHANGE BIT BIT 
5855 
5856 022232 904037 030732 JSR RO, @8CHREG sCHANGE BITS IN SAVED REGISTER 
5857 622236 002172 RHCS1 sCHANGE RHCS1 REGISTER 
5As8 
5659 022240 600001 i 21 BIT/BITS TO BE CHANCED 
586% 622242 600001 i sNEW VALUE OF SC IS 1 
5861 022244 100000 sc sCHANGE SC BIT 
S862 022246 094037 027762 JSR RO, @OFILLRE s“OV 1 INTO SAVED RHDST 
$863 622252 602176 RHDST sSAVED REGISTER TO CHANGE 
5864 622254 6809001 1 sDATA 
5865 
$866 022256 0804937 0630732 JSP RO, @SCHREG :CHANGE BITS IN SAVED REGISTER 
5867 22262 002214 RHDS! sCHANGE RHDS1 REGISTER 
5868 
$869 022264 000002 ? 32 BIT/BITS TO BE CHANGED 
5870 @22266 900001 ' sNEW VALUE OF ATA IS 1 
$871 0622270 1860000 ATA sCHANGE ATA BIT 
5972 022272 #800001 1 sNEW VALUE OF ERR IS 1 
$873 022274 940000 ERR sCHANGE ERR BIT 
$974 
5987S 022276 053737 0604622 004522 BIS @CATTENT, @OSAVERES24 :SFT APPROPIATE ATA BITS 
5876 sFOR WORKING DRIVE IN 
$e77 #SAVED RHAS LOACTION 
5678 
5979 022304 004037 630732 JSR RO, @SCHREG :CHANGE BITS IN SAVED REGISTER 
$882 622319 002174 RHER sCHANGE RHEP1 REGISTER 
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5882 
SAR} 
san4 
5Aas 
586 
SAe7 
Sear 
$869 
5ag9a 
5A91 
5892 
5293 
5894 
$e95 
5896 
5897 
5898 
$899 
s9ve 
sovi 
5902 
5903 
5904 
5905 
$996 
$907 
5908 
5909 
5910 
$911 
5912 
$913 
$914 
$915 
$916 
5917 
$918 
5919 
$920 
5921 
$922 
5923 
$924 
5925 
$926 
$927 
$928 
5929 
5930 
5931 
$932 
5933 
$934 
5935 
$936 
5937 


022312 
@72314 
022316 
022320 
022324 
022326 
022330 
022334 
022336 


022340 


022344 
922346 
922350 
022352 
022354 


022356 
022356 
022360 
022364 
022370 
022372 
022374 


022376 


022376 
022402 
022404 
022406 
022410 


022412 
022414 


022416 
022422 
@22424 
422430 


T26 


090001 
an00e1 
000004 
004037 
002166 
AG4074 
004037 
002164 
098000 


004037 


904476 
002242 
000022 
922356 
022376 


010046 
013700 
014037 
104969 
012600 
000207 


004037 
002354 
803420 
022412 
#22416 


194034 
000207 


005337 
001002 
000167 
000137 
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1 21 BIT/BITS TO KE CHANGED 

1 sNEW VALUE OF RMP IS 1 

RYR sCHANGE RMR AIT 

JSR PO, @8FILLRE sMOV PEINTO#¢€159,¢e2> INTO SAVED PHBA 

RHBA SAVED PEGISTER TO CHANGE 

REINTO#¢¢€150,82> sDATA 

JSR RO, @eFILLRE “OV 4 INTO SAVED RHWC 

RHWC SAVED PEGISTER TO CHANGE 

Qa sDATA 


031040 


004626 
001122 


032070 


004634 


O80004 
021662 


sCOMPARE REGISTERS BEFORE READ DATA WITH REGISTERS 
sAFTER READ AND ATTEMPTED MODIFICATION OF REGISTEP 


JSR PO, @sCOMREG sCOMPARE SAVED REGISTERS WITH 
sPRESENT VALUE 
SAVERE :GOOD DATA SAVED IN °SAVEPRE’ 
we sTEST DATA STARTING FROM “RHBC? 
18. 218, REGISTERS TO BE COMPARED 
28 sRETURN TO 28 ON ERROR 
38 sRETURN TO 36 ON NO FRROR 
283 
MOV RO, -(SP) 23PUSH R@ ON STACK 
MOV @eT™PO, RO sGET REGISTER BEEING MODIFYED ¢ 2 POINTER 
MOV @(RO),@@SBDADR ;GET ADDRESS OF REGISTER BEING MODIFYED 
ERROR 60 sATTEMPTING TO MODIFY REGISTER 
MOV (SP)¢,RO 33POP STACK INTO RO 
RTS pc sDURING A READ COMMAND CAUSFD 
sIMPROPER REGISTER CHANGE 
3GO00D DATA GIVES WHAT SHOULD 
388 THERE 
gRECEIVED DATA GIVES WHAT WAS 
sTHERE AFTER READ 
sCOMPARE DATA READ 
383 
JSR RO, @8COMPAR :COMPARE TWO BLOCKS OF MEMORY 
WRFROY 3GOOD DATA STARTS FROM WRFROM 
REINTO sTEST DATA STARTS FROM REINTO 
43 348 WORDS TO SE COMPARED 
ST23 sRETURN TO ST23 OW ERROR 
sPETURN TO ON NO ERROR 
48: FRROR 34 sDATA READ WITH AN ATTEMPTED 
RTS pc sMODIFICATION OF REGISTER 
sDURING READ CAUSED ERROR 
ST233 DEC @eTMPS sCOUNT DOWN 
BNE 18 s@RANCH IF 7 NOT DONE 
JMP TST27 sJUMP TO NEXT TEST 
18: JP aeST22 sJUMP TO BEGINING OF TEST 
PFRSSSSSSSSSSSSSHSHSSHSSSHSSHSSSHSHSEHHHSHHHSHSSHSHEHHHHHSCHSSSHESHHEHCOS 
2*TEST 27 REGISTER MODIFICATION REFUSED RMR-BIT#?2? IN RHERI 
ce A WRITE HEADER AND DATA COMMAND WILL BE GIVEN TO 
4 CYLINDER 1 SECTOR @ TRACK @ DATA WORDS 


mamma nana eee 
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§938 3¢ OF A7A7TA7 

$939 3° 

5940 3 A WRITE DATA COMMAND WILL BE GIVEN TO CYLINDER 1 

$941 

$942 3 SFCTOR 4, TRACK @, 256 WORDS OF 2000 

5943 7° AND 4 WORDS OF 2001, IMMEDIATELY AFTER GO 

5944 76 AN ATTEMPT WILL BE MADE TO MODIFY A REGISTER 

5945 28 RMR BIT #2 IN RHFR1i SHOULD SET 

§946 :@ 

5947 38 AFTER THE WPITE IS COMPLETE ALL REGISTERS WILL 

5948 : 3 BE CHECKED 

§949 iz) 

59590 3 THE DATA WRITTEN WILL BE READ BACK AND CHECKED 

5951 bl 

5952 3 THIS WILL BE REPEATED FOR RHCSi1, RHERI, RHOST, 

$953 3% RHER2, PHOF, RHCA, RHER3 

§954 

5955 FESSSSSSSHSSHHSSSHSHSHSHHSSSHSHSSOHSHSSSSHSSSHESHHHSHSHSEHOHSHOHSESSOSHCEES 

$956 022434 000004 TST273: SCOPE 

5957 622436 612706 9001000 MOV @STACK,SP sRESET STACK 

5958 922442 012737 900027 904470 MOV €27,@eTSTNM sSAVE TEST NUMBER 

5959 

$964 €@22450 0804737 0639060 JSR PC, @eCLDISK sSET RieRHCS1, R2-RHCS? 

5961 sR3°RHDS1, R4-RHER1 

59462 sGIVE RHell INITIALIZE 

5963 s:SETUP UNIT NUBER 

5964 

§965 422454 012737 602172 004626 ¥wOV @RHCS1,@eTMPE sFILL REGISTER TO BE “ODIFIED 

5966 09227462 012737 800007 694634 MoV 0¢7,@eTmMPS sNUMBER OF REGISTERS TO BE TESTED 

$967 

5968 :PREPARF TO WRITE HEADFR AND DATA 

5969 

$970 #22470 ST243 

5971 

5972 922470 004737 030060 JSR PC, @eCLDISK sSET PieRHCS1, R2°RHCS2 

5973 sR3-RHDS1, PR4-RHEPI 

5974 sGIVE RHeil INITIALIZE 

5975 sSETUP UNIT NUBER 

5976 

5977 

5978 FILL WRITE FROM BUFFER WITH HEADER 

§979 

598A 22474 0604037 027704 JSR RO, @8FLHEAD sSAVE HFADEP DATA IN WRFROM 

$981 022500 002354 WRFROM sLOCATION WHERE SAVED 

5982 822592 900004 4 NUMBER OF WORDS SAVFD 

5983 8622504 010001 10001 sFIRST DATA WORD 

5984 0822506 #98907 Qa 2SECOND DATA WORD 

$985 822510 900000 a sTHIRD DATA WORD 

$986 9022512 990000 a sFOURTH DATA WORD 

5987 

59898 sFILL WRITE FROM BUFFFR WITH DATA 

§989 022514 004037 027730 JSR RO, @sCLAREA sCLEAR 256, WORDS, FROM WRFROM¢<402> 

$999 422520 002364 WRFROMe<402> sSTARTING FRO” WRFROMe<402> 

$991 022522 000400 256. 3256. WORDS 

$992 922524 470767 070707 sFILL WITH 070707 


5993 
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§994 
5995 sFILL WRITE FROM BUFFER WITH NEXT SECTOR HEADER 
5996 
5997 022526 0943937 027704 JSR PO, @eFLHEAD sSAVE HFADER DATA IN WRFROMS<260,82> 
$998 022532 0603364 WRFPO“+¢<260,82> sLOCATION WHFRE SAVED 
$999 022534 0670004 4 sNUMBER OF WORDS SAVED 
6900 022536 810001 19001 sFIRST DATA WORD 
6901 022540 6890001 i sSECOND DATA WORD 
6992 8022542 8720000 Q sTHIRD DATA WORD 
6003 22544 880000 a sFOURTH DATA WORD 
6904 
6005 :FILL WRITE FROM BUFFER WITH WITH NEXT SECTOR DATA 
6996 022546 004037 42773" JSR RO, @8CLAREA sCLEAR 4 WORDS, FROM WRFROM¢<268.02> 
67007 @22552 003494 WRFROM¢<268 ,#2> sSTARTING FROM WRFROMO<268.82> 
6008 822554 800904 3 74 WORDS 
6909 422556 970707 79707 sFILL WITH 70707 
6012 
6011 
6012 sNOW THF WRITE HEADER AND DATA COMMAND WILL BE FILLED 
6013 
6014 022560 604037 0832924 JSP RO, @eRUN sSETUP TO RUN FOR DATA COMMAND 
6715 022564 0600001 1 sCYLINDER 1 
6916 9822566 aoa BYTE v :SECTOR @ 
6017 022567 800 BYTE 6 sTRACK @ 
6¥18 022570 177364 °264,°4 sWORD COUNT (DATA)2#264,¢ 
6019 94 HEADER WORDS 
6920 022572 802354 WRFROM sBUS ADDRESS 
6071 sSTARTING ADDRESS OF DATA 
6022 sBUFFER s& WRFROM 
6923 922574 800000 @ 200 NOT INHIBIT BUS ADDRESS INCREMENT 
6924 022576 010900 FMT22 316 BITS PEP WORD FORMAT 
6925 200 NOT INHIBIT ECC CORRECTION 
6726 300 NOT INHIBIT HEADER COMPARE 
6927 822600 002332 WRIFOR :GET READY TO DO A WRIFOR 
6028 sWRITE WEADER AND DATA WITH 62 IN RHCSI 
6029 
6030 
6931 022602 004737 030140 JSR PC, @8CHECKT sCHECE DVA,PDY,“OL,DPR,DRY,VV 
6032 
6933 
6034 422606 813777 604472 157344 MOV GORP4VEC,@RPVEC sSET RP®4 VECTOR ADDRESS 
6035 sTO °TIME1*® IF PeCLOCK IS PRESENT 
6036 2OR TO °TIME2° IF PeCLOCK IS NOT PRESENT 
6437 s°TIME® WILL ONLY SAVE 
6738 sCURRENT CYLINDER ADDRESS 
6039 sAND LOOK AHEAD REGISTERS 
6040 
6041 
6942 922614 613746 802332 MOV @SWRIFOR,©(SP) 3sGET READY TO MOVE COMMAND 
6943 622620 052716 600101 BIS eGO:IE,(SP) 2GET READY TO SET GO AND 
6044 sENABLE INTERPUPT 
6945 022624 612677 157342 MOV (SP)¢,@RHCS1 3GO WITH 
6046 362 IN RHCS1 FOR WRITE HEADER AND DATA 
6047 s@ITH INTERRUPT ENABLED 
6748 2ONF REVOLUTIONS1667@ MICRO SEC, ONE SECTOR#76@ MICRO SEC 
6049 
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6050 022630 104420 WAT swAIT FOR PDY BIT TO SET 

6451 022632 @A2172 PHCSI sWATT FOR RHCS1 RFGISTER 

6752 422634 9300200 ROY sWAIT FOR ROY BIT IN RHCS1 PEGISTER 

6053 822636 901725 gai, sALLOW 9810 MICRS SECONDS 

6054 22640 0015982 634, sRDY MUST SET BETWEEN 

6055 21470 AND 1815@ MICRO SECONDS 

6a56 

6957 tNOw PREPARE FOR THF WRITE DATA COMMAND 

6058 

6959 2FILL WRITE FROM BUFFER WITH 256 OF 2000 AND 4 OF 2001 

6960 8922642 084037 0827739 JSR Re, @eCLAREA sCLEAP 256, WORDS, FROM WREFPOY 

6061 22646 002354 WRFROM sSTARTING FROM WRFROM 

6962 422650 090400 256. 3256, WORDS 

6063 922652 0602090 2900 sFILL WITH 2000 

6964 

6065 022654 004037 0627730 JSR PO, @sCLAREA sCLFAP @ WORDS, FROM WRF ROM¢<256,02> 

60966 8226660 403354 WRF ROM4<256,82> STARTING FRO” WRFROM4<256.02> 

6067 22662 900004 4 24 WORDS 

6968 922664 0602001 2001 sFILL WITH 2001 

6769 

6a7a 

6071 sFILL WRITE DATA COMMAND 

6072 

6973 22666 8604037 0632024 JSR RA, @6RUN SETUP TO RUN FOR DATA COMMAND 

6074 @22672 #00001 1 sCYLINDER 1 

6075 022674 eae BYTE a ?SECTOR @ 

6076 022675 00a eBYTE a sTRACK @ 

6077 @22676 177400 -256. sWORD COUNT s& 256, 

6078 022700 802354 WPFROM 7BUS ADDRESS 

6079 sSTARTING ADORESS OF DATA 

64080 sBUFFER s&s WRFROM 

6081 822702 806000 a 300 NOT INHIBIT BUS ADDRESS INCREMENT 

6082 422704 0190000 FMT22 216 BITS PER WORD FORMAT 

6083 sD0 NOT INHIBIT ECC CORRECTION 

6084 200 NOT INHIBIT HEADER COMPARE 

6985 022746 902330 WRIDAT 3GET READY TO DO A WRIDAT 

6086 sWRITE DATA WITH 60 IN RHCS1 

6087 

6988 

6089 sSAVE REGISTERS FOR COMPARISON AFTER ATTEMPTED 

6090 sREGISTER MODIFICATION DURING A WRITE DATA 

6091 @22710 %04037 630220 JSR PO,@sSAVER sSAVE REGISTERS 

6092 822714 602164 RHwC sRHWC IS THE FIRST REGISTER SAVED 

6093 98922716 004476 SAVERE STARTING ADORES OF WHERE 

6094 THE REGISTERS ARE SAVED 

6095 022720 000022 18. sNUMBER OF REGISTERS 

6096 sSAVED = 18. 

6097 

6998 8272722 004737 430140 JSR PC, @OCHECKT s;CHECK DVA,ROY,“4OL,OPR,ORY,VV 

6099 

6100 

6101 022726 013777 004472 157224 MOV @SRP4VEC,@RPVEC :SET RP?4 VECTOR ADDRESS 

6192 3TO °TIME1’ IF PeCLOCK IS PRESENT 

6103 3OR TO °TIME2° IF PeCLOCK IS NOT PRESENT 

6104 2°TIME’ WILL ONLY SAVE 

6105 sCURRENT CYLINDER ADDRESS 


ne 
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6106 
6107 
6196 
6109 
6110 
6111 
6112 
6113 
6114 
6115 
6116 
6117 
6118 
6119 
6120 
6121 
6122 
6123 
6124 
6125 
6126 
6127 
6128 
6129 
6130 
6131 
6132 
6133 
6134 
6135 
6136 
6137 
6138 
6139 
6140 
6141 
6142 
6143 
6144 
6145 
6146 
6147 
6148 
6149 
6150 
6151 
6152 
6153 
6154 
6155 
6156 
6157 
6158 
6159 
6160 
6161 


022734 
822740 


022744 


022750 
022754 


022760 


022764 
022766 
022770 
022772 
022774 


022776 
023002 


023004 
023006 
023010 


923012 
023016 


023020 
023022 
023024 


023026 
923932 


23034 
023036 
023040 
023042 
023044 


23046 


023054 
23960 


T27 


013746 
052716 


012677 


013700 
012730 


810037 


194420 
002172 
000200 
001725 
001502 


904937 
#02226 


800001 
000001 
090001 


004037 
002172 


A00001 
000001 
100000 


004037 
002214 


000902 
990001 
100000 
000001 
040000 


053737 


004037 
002174 
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sAND LOOK AHEAD REGISTERS 


002330 MOV POWRIDAT,*©(SP) 3GET READY TO MOVE COMMAND 

90101 BIS sGO!LlLE, (SP) sGET PEADY TO SET GO AND 
sENABLE INTFRRUPT 

157222 “nV (SP), @RHCS1 3GO WITH 


362 IN RHCS1 FOR WRITE DATA 
sWITH INTERPUPT ENABLED 


04626 MOV @STMPA,RO sSET RO TO REG ADDRESS 

002002 MOV SRITILBITIO,@(RA)* sATTEMPT TO WRITE INTO A REGISTER 
sOURING WRITE DATA 

004626 MOV RO, @8TMPA sSAVE OFF NEW RFG ADDRESS 


sNOW RMP MUST BE SET BUT THE COMPLETION OF 
sWRITE DATA MUST BE WAITED ON 


WAT sWAIT FOR RDY BIT TO SET 

RHCS1 sWAIT FOR RHCS{ REGISTER 

RDY sWAIT FOR ROY BIT IN RHCS1 REGISTER 
981, sALLOW 9810 MICRO SECONDS 

634, sRDY “UST SET BETWEEN 


21470 AND 186150 MICRO SECONDS 
sCHANGE SAVED REGISTERS TO EXPECTED VALUE 


030732 JSR PO, @eCHREG sCHANGE BITS IN SAVED REGISTER 
RHCC sCHANGE RHCC REGISTER 
1 $1 BIT/BITS TO BE CHANGED 
i sNEW VALUE OF BIT@ ITS 1 
BITO sCHANGE BIT@ BIT 
030732 JSR RO, @SCHREG sCHANGE BITS IN SAVED REGISTER 
PHCS sCHANGE RHCS! REGISTER 
1 31 BIT/BITS TO BE CHANGED 
fl sNEW VALUE OF SC IS 1 
sc sCHANGE SC BIT 
030732 JSR PO, @8CHREG :CHANGE BITS IN SAVED REGISTER 
RHDS1 sCHANGE RHDS1 REGISTER 
2 $2 BIT/BITS TO BE CHANGED 
1 sNEW VALUE OF ATA IS 1 
ATA sCHANGE ATA BIT 
1 ;NEW VALUE OF ERR IS 1 
ERR sCHANGE ERR BIT 
094622 004522 BIS GSATTENT,@OSAVERES24 §§3SET APPROPIATE ATA BITS 


sFOR WORKING DRIVE IN 
:SAVED RHAS LOACTION 


030732 JSR RO, @OCHREG sCHANGE BITS IN SAVED REGISTER 
RHEP{ sCHANGE RHER] REGISTER 
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6162 
6163 
6164 
6165 
6166 
6167 
6168 
6169 
6170 
6171 
6172 
6173 
6174 
6175 
6176 
6177 
6178 
6179 
6189 
6161 
6182 
6183 
6184 
6185 
6186 
6187 
6188 
6189 
6190 
6191 
619? 
6193 
6194 
6195 
6196 
6197 
6198 
6199 
6200 
6201 
6202 
62093 
6204 
6205 
6276 
6207 
6208 
6209 
6210 
6211 
6212 
6213 
6214 
6215 
6216 
6217 


en 


023962 
@23064 
023066 
@23070 
023074 
023076 
023100 
023104 
023106 
023110 
023114 
023116 


023120 


023124 
#23126 
023130 
#23132 
023134 


023136 
023136 
023140 
923144 
#23150 
023152 
023154 


923156 
623156 


023162 
023166 
023170 
023172 


023174 
023200 
#23202 
023204 


923206 


T27 


000001 
000001 
900004 
904037 
002176 
A001 
044037 
602166 
003354 
004037 
002164 
909000 


004037 


004476 
002242 
000022 
023136 
023156 


010046 
913700 
014037 
104063 
012600 
000207 


004737 


004037 
002354 
070400 
002000 


004037 
003354 
800004 
002001 


004037 
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027762 


027762 


027762 


031040 


004626 
901122 


627730 


027730 


032024 
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38: 


i 

1 

RMR 

JSR RA, @8FILLRE 
PHDST 


1 

JSR PO, @8FILLRE 
RHBA 
WRFROM¢<256 62> 

JSR RO, @SFILLRE 
RHWC 

0 


SEQ 0141 


31 BIT/AITS TO BE CHANGED 

sNEW VALUE OF R4R IS 1 

sCHANGE PMR BIT 

sMOV 1 INTO SAVED RHDST 

sSAVED PEGISTER TO CHANGE 

sDATA 

sMOV WRFROM*<256,82> INTO SAVED RHBA 

sSAVED REGISTER TO CHANGE 
sDATA 

sMOV @ INTO SAVED RHWC 

#SAVED REGISTER TO CHANGE 

sDATA 


sCOMPAPRE REGISTERS BFFORE WRITE DATA WITH REGISTERS 
sAFTER WRITE AND ATTEMPTED MODIFICATION OF REGISTER 


JSR RY, @8COMREG 
SAVERE 

we 

18, 

28 

38 

MOV RO,-(SP) 
MOV Oe TMPO, RO 
MOV -(R@), @8SBDADR 
ERROR oe 

MOV (SP)o,R0 
RTS pc 


sCLEAP ALL FRROR FLAGS 


JSR PC, @sCLOISK 


sFILL WRITE FROM BUFFER 
JSP RO, @@CLAREA 
WRFROM 

256, 

2000 


JSR RO, @8CLAREA 
WRFROM¢<256 82> 

4 

2001 


sCOMPARE SAVED REGISTERS WITH 
sPRESENT VALUE 

:GOOD DATA SAVED IN “°SAVERE® 
+TEST DATA STARTING FROM °PHWC’ 
818, REGISTERS TO BE COMPARED 
sPETURN TO 28 ON ERROR 

sRETURN TO 38 OW NO ERROR 


s39PUSH R@ ON STACK 

sGET REGISTER BEEING MODIFYED + 2 POINTER 
sGET ADDRESS OF REGISTER BEING MODIFYED 
sATTEMPTING TO MODIFY REGISTER 

33POP STACK INTO RO 

sDURING A WRITE COMMAND CAUSED 
sIMPROPER REGISTER GIVES WHAT SHOULD 
3GOOD DATA GIVES WHAT SHOULD 

sBE THERE 

sRECETVED DATA GIVES WHAT WAS 

sTHERE AFTER READ 


sSET RieRHCS1, R2°RHCS2 
sR3°RHDSi1, R4-RHERI 

sGIVE RHeif INITIALIZE 

sSETUP UNIT NUBER 

WITH EXPECTED DATA 

:CLEAR 256, WORDS, FROM WRFROM 
sSTARTING FROM WRFROM 

3256, WORDS 

sFILL WITH 2000 


sCLEAR 4 WORDS, FROM WRFROM*<256,02> 
sSTARTING FROM WRFROMe<256,.82> 

34 WORDS 

sFILL WITH 2641 


sNOW THE READ DATA COMMAND WILL BE FILLED 


JSR RO, @8RUN 


sSETUP TO RUN FOR DATA COMMAND 
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6219 023212 9200001 1 sCYLINDFP 1 

6219 623214 00a BYTE 6 sSECTOR @ 

6220 023215 800 eBYTE a sTRACK @ 

6221 423216 177374 -260, sWORD COUNT & 260, 

6222 023220 003420 PEINTO 3BUS ADDRESS 

6223 #STARTING ADDRESS OF DATA 

6224 sBUFFER s&s REINTO 

6225 #23222 #ne000 0 300 NOT INHIBIT BUS ADDRESS INCREMENT 

6226 023224 614000 ECISFMT22 316 BITS PEP WORD FORMAT 

6227 s INHIBIT ECC CORRECTION 

6228 :D0 NOT INHIBIT HEADER COMPARE 

6229 023226 002334 READAT sGET READY TO DO A READAT 

6230 sREAD DATA WITH 70 IN RHCSI 

6231 

6232 

6233 sNOW SAVF REGISTERS FOR COMPARISON AFTER READ DATA COMMAND 

6234 023230 6094037 030220 JSR PA, @OSAVER sSAVE REGISTERS 

6235 23234 002164 RHWC sRHWC IS THE FIRST REGISTER SAVED 

6236 023236 804476 SAVERE sSTARTING ADDRES OF WHERE 

6237 sTHE REGISTERS ARE SAVED 

6238 423240 090022 18, sNUMBER OF REGISTERS 

6239 sSAVED = 18, 

6240 

6241 823242 604737 630140 JSR PC, @8CHECKT sCHECK DVA,RDY,MOL,DPR,DRY,VV 

6242 

6243 

6244 023246 013777 004472 156704 MOV OCRP4VEC,ORPVEC s:SET RPO4 VECTOR ADDRESS 

6245 sTO “TIME1° IF PeCLOCK IS PRESENT 

6246 :OR TO *TIME2° IF PeCLOCK IS NOT PRESFNT 

6247 ' s°TIME’ WILL OWLY SAVE 

6248 sCURRENT CYLINDER ADDRESS 

6249 sAND LOOK AHEAD REGISTERS 

6250 

6251 

6252 @23254 0613746 002334 MOV @CREADAT,°(SP) sGET READY TO MOVE COMMAND 

6253 023260 0652716 000101 BIS @GOI IE, (SP) sGET READY TO SET GO AND 

6254 sENABLE INTERRUPT 

6255 023264 812677 156702 MOV (SP), @RHCS1 3GO0 WITH 

6256 370 IN RHCS1 FOR READ DATA 

6257 sWITH INTERRUPT ENABLED 

6258 0623270 611100 MOV OR1,RO :SAVE RHCS1 DURING ABOVE OPERATION 

6259 623272 611305 MoV OR3,RS sSAVE RHDS1 DURING ABOVE OPERATION 

6260 

6261 

6262 @23274 104420 WAT sWAIT FOR RDY BIT TO SET 

6263 23276 0602172 RHCS1 sWAIT FOR RHCS1 REGISTER 

6264 023390 968200 RDY sWAIT FOR ROY BIT IN RHCS1 REGISTER 

6265 923302 001725 981. sALLOW 9810 MICRO SECONDS 

6266 023304 #01502 634, sRDY MUST SET BETWEEN 

6267 31470 AND 1815@ MICRO SECONDS 

6268 sCOMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED IW 

6269 3R@ AND RS IMMEDIATELY AFTER GO 

6270 823306 613746 002334 MOV @OREADAT,-(SP) SAVE COMMAND 

6271 023312 952716 004101 BIS @IEIDVA!GO,(SP) s INCLUDE IELOVAIGO 

6272 023316 611637 001124 MOV (SP), @@8GDDAT sSAVE FOR PRINTOUT 

6273 023322 022600 CMP (SP)¢,RO PMURING ABOVE OPERATION ONLY IE!IDVA!GO 
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\ 6274 
. 6275 
6276 
6277 
6278 
6279 
6289 
6291 
6282 
6283 
62784 
6285 
6286 
6287 
6286 
6289 
6290 
6291 
6292 
6293 
6294 
6295 
6296 
6297 
6298 
6299 
6300 
6301 
6302 
6303 
6304 
6305 
6306 
6307 
6308 
6309 
6310 
6311 
6312 
6313 
6314 
6315 
6316 
6317 
6318 
6319 
6320 
6371 
6322 
6373 
6324 
6325 
6326 
6327 
6326 
6329 


023324 
023326 
#23332 
023336 


023340 


023344. 


023350 


#23352 
023354 
023360 
023364 


023366 
023372 
023374 


023376 
023402 
023404 
023406 
023412 
023414 


023416 


023422 
023424 
023476 
023430 
023432 


023434 
023436 


023440 


023440 
023444 
023446 
023450 
923452 
023454 


T27 


001405 
#10037 
010137 
104021 


012746 
011637 
022605 


001405 
010537 
010337 
104063 


004037 
002164 
000009 


004037 
002166 
004430 
004037 
002176 
AABOB2 


004037 


004476 
402242 
000022 
023434 
023440 


104933 
040207 


004037 
002354 
003420 
900400 
023456 
023462 
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001126 
004464 


0105090 
001124 


001126 
004464 


027762 


027762 


027762 


032070 
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7083 


7283 


sAND COMMAND SHOULD BE SET 


BFQ 74$ sBRANCH IF GOOD 

MOV PA, @8SBDDAT 3BAD DATA 

MOV P1,@eREGADR sFAILING REGISTER RHCSIi 

EPROR 21 sDUPING ABOVE OPERATION ONLY 
sCOMMAND AND IE{OVA{GO SHOULD BF SET 

“OV eMOLIDPRIVV,-(SP) tSAVE BITS SET DURING OPERATION IN RHDSI 

“OV (SP),@@SGDDAT sSAVE FOR PRINTOUT 

CMP (SP)¢,R5 sOURING ABOVE OPERATION ONLY MOLIDPRIVV 
sSHOULD BE SET 

BEG ' 728 :BRANCH IF GOOD 

MOV P5,@ssBDDAT sBAD DATA 

MOV R3,@sPREGADR sFAILING REGISTER RHDS1 

ERROR 63 sDURING ABOVE OPERATION ONLY 


sMOLIOPRIVV SHOULD BE SFT 


sNOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 


JSR PO, @sFILLRE 
RHWC 
8 


JSR RO, @OFILLRE 
RHBA 
REINTO¢<260,02> 

JSR RO, OOF ILLRE 
RHDST 

2 


s4OV @ INTO SAVED RHWC 
sSAVED REGISTER TO CHANGE 
sDATA 


sMOV REINTO*<260.82> INTO SAVED RHBA 
sSAVED REGISTER TO CHANGE 
sDATA 
s¥OV 2 INTO SAVED RHDST 
sSAVED REGISTER TO CHANGE 
sDATA 


sNOW COMPARE REGISTERS BEFORE READ DATA WITH 


sAFTER COMMAND 
JSR RO, @8COMREG 


SAVERE 
we 

18, 

4s 

58 


ERROR 33 
RTS =—s PC 


sCOMPARE SAVED REGISTERS WITH 
sPRESENT VALUE 

sGOOD DATA SAVED IN °SAVERE*’ 
sTEST DATA STARTING FROM “RHWC’ 
318, REGISTERS TO BE COMPARED 
sRETUPN TO 46 ON ERROR 

sRETURN TO SS ON NO ERROR 


sREAD DATA CAUSED IMPROPER REGISTER 

s CHANGE 

3GOOD DATA GIVES WHAT SHOULD BE THERF 

sRECETVED DATA GIVES WHAT WAS THERE AFTER COMMAND 


sNOW PEAD INTO BUFFER WILL BE CHECKED TO SEE THAT READ 


sWAS GOOD 


JSR RA, @OCOMPAR 
WRFROY 


sCOMPARE TWO BLOCKS OF MEMORY 
3GO00D DATA STARTS FROM WRFROM 
sTEST DATA STARTS FROM REINTO 
3256, WORDS TO BE COMPARED 

sRETURN TO 68 OW ERROR 

sRETUPN TO ST28 ON NO ERROR 


Neen eee eae 
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MATEDFCe11-DFRPV=B 
DERPVA P11 T27 


sREAD DATA FRROR AFTER A WRITE DATA 
sWITH REGISTER MODIFICATION 

sWITHIN THE WPITE DATA 

TF 7 RFGISTERS NOT COMPLETE THEN REPEAT 

DEC @sTMPS :COUNT DOWN 

BNE 1s sBRANCH IF 7 NOT DONE 

JMP TST3A sJU“P TO NEXT TEST 

JP ST24 sJUMP TO BEGINING OF TEST 


FRROP 34 
FTS pe 


6339 6S: 
6331 
633? 
6333 
6334 
6335 
6336 
6337 
6338 
6339 
6340 
6341 
6342 
6343 hd 
6344 7° 
6345 rr 
6346 
6347 
6348 
6349 
6350 
6351 
6352 
6353 
6354 
6355 
6356 
6357 
6358 
6359 
6360 
6361 
6362 
6363 


023456 
023460 


104034 
AA9207 


ALL 
045337 
AG1AA2 
300167 
ANFLS7 


23462 004634 ST28: 
423466 
023470 


023474 


APEAR4E 


176770 183 


FERSSCSOSSSHOSHSESOSOSSOSSSSSOSSOESOSSHOHOSHEEHEEOOHESCHOTEODESES 
2*TEST 30 PEGISTER “ODIFICATION REFUSED BIT #2 RPHERI 


A READ MATA COMMAND IS GIVEN TO CYLINDER 4%, SECTOR @ 
TRACK ®, IMMEDIATELY AFTER GO RHAS IS WRITTEN INTO 
WITH ALL ONES RMR BIT #2 IN RHER SHOULS NOT SET 


PESSSSHSHSSHSSTOSHSS HSS HSEHFHTOSHSOHESHHSHHHEHEHOTOSOSESSTOHORES 

TST393 SCOPE 
MOV 
MOV 


23500 
023502 
823506 


OA0A04 
912706 
412737 


sRESET STACK 
sSAVE TEST NUMBER 


@STACK,SP 
830,@8TSTNM 


eA180e 
ABAA3R AF4470 
PC, @eCLDISK :SET Ri-RHCS1, R2-RHCS2 
sRI“RHDS1, R4&-RHERI 
sGIVE RH-31 INITIALTZE 
sSETUP UNIT NUBER 


923514 #04737 30060 JSP 


sFILL WRITE FROM BUFFER WITH EXPECTED DATA 

JSR PA, @8CLAREA sCLEAP 256, WORDS, FROM WRFROM 
WRFROM sSTARTING FROM WRFROM 

256. 3256, WORDS 

@ sFILL WITH @ 


004037 
092354 
OnA400 
000000 


923520 027730 
623524 
0235276 


023530 
sFILL PEAD INTM BUFFER WITH ALL ONES 


6364 
6365 
6366 
6367 
6368 
6369 
6370 
6371 
6372 
6373 
6374 
6375 
6376 
6377 
6378 
6379 
6380 
6381 
6362 
6383 
6384 
6365 


423532 
923536 
423540 
#23542 


023544 
023550 
923552 
673553 
023554 
623556 


023569 
023562 


023564 


004037 
903422 
990400 
177777 


004937 
890009 
000 
ana 
177400 
403420 


8980000 
014000 


002334 


JSR RO, @8CLAREA 
PEINTO 

256. 

-1 


027730 


sCLEAP 256. WORDS, FROW REINTO 
sSTARTING FROM REINTO 

2256, WORDS 

sFILL WITH ef 


:NOW THF READ DATA COMMAND WILL BE FILLED 


JSP 

@ 

® 

0 
=256. 
REINTO 


@32024 RA, @eRIUIN 


e 
ECILFMT22 


READAT 


:SETUP TO RUN FOR DATA COMMAND 

sCYLINDER @ 

sSECTOR 0 

sTRACK @ 

sWORD COUNT s 256, 

2B8US ADDRESS 

sSTARTING ADDRESS OF DATA 

sRUFFER & REINTO 

:D0 NOT INHIBIT BUS ADDRESS INCREMENT 
916 BITS PER WORD FORMAT 

sINHIBIT ECC CORRECTION 

:D0 NOT INHIBIT HEADER COMPARE 

sGET READY TO DO A READAT 


9PEAD DATA WITH 70 IN RHCS1 
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6386 sNOW SAVE RFGISTFRS FOR COMPARISON AFTER READ DATA COMMAND 
6387 623566 604037 030220 JSR RO, @8SAVER sSAVE REGISTERS 
6388 023572 002164 RHWC sRHWC IS THE FIRST REGISTER SAVED 
6389 423574 074476 SAVERE sSTARTING ADDRES OF WHERE 
6390 :THE REGISTERS ARE SAVED 
6391 8623576 0800022 18, sNUMBER OF REGISTERS 
6392 sSAVED @ 186, 
6393 
6394 823600 604737 0301420 JSR PC, @sCHFCKT sCHECK DVA,RDY,MOL,DPP,DRY,VV 
6395 
6396 
6397 #823604 013777 @94472 156346 MOV @ORP4VEC,@PPVEC sSET RPO4 VECTOR ADDRESS 
6398 :TO °TIME1° IF PeCLOCK IS PRESENT 
6399 . 2OR TO °TIME2° IF P-CLOCK IS NOT PRESENT 
6400 s°TIME® WILL ONLY SAVE 
6401 sCURRENT CYLINDER ADDRESS 
6492 sAND LOOK AHEAD REGISTERS 
6403 
6404 
6445 
6406 973612 913746 0602334 MOV @SREADAT,°(SP) :GET READY TO MOVE COMMAND 
6407 023616 852716 000101 BIS eGOLIE,(SP) sGET READY TO SET GO AND 
6408 sENABLE INTERRUPT 
6499 023622 812677 156344 MOV (SP)¢,@RHCS1 3GO WITH 
6410 370 IN RHCS1 FOR READ DATA 
6411 : sWITH INTERRUPT ENABLED 
6412 0623626 811180 MOV OR1,RO sSAVE RHCS1 DURING ABOVE OPERATION 
6413 923630 0611305 “OV @OR3,RS sSAVE RHDS1 DURING ABOVE OPERATION 
6414 
6415 023632 012777 177777 156350 MOV @-1,@RHAS sWRITE INTO RHAS THIS SHOULD 
6416 sNOT SET RMP 
6417 
6418 sTIME IS NOT IMPORTANT 
6419 
6420 973640 104420 WAT sWAIT FOR ROY BIT TO SET 
6421 023642 0602172 RHCS1 sWAIT FOR RHCS1 REGISTER 
6422 023644 000200 RDY sWAIT FOR ROY BIT IN RHCS1 REGISTER 
6423 023646 603326 1750, sALLOW 17500 MICRO SECONDS 
6424 823650 900175 125. sRDY MUST SET BETWEEN 
6425 916250 AND 186750 MICRO SECONDS 
6426 sCOMPARE CONTENTS OF RHCS1 AND RHDS1 ALREADY SAVED In 
6427 sR@ AND RS IMMEDIATELY AFTER GO 
6428 823652 013746 0042334 MOV @SREADAT,°(SP) sSAVE COMMAND 
6429 23656 952716 04101 BIS SIELOVAIGO,(SP) s INCLUDE TESOVA!GO 
6439 023662 11637 001124 MOV (SP), @88GODAT sSAVE FOR PRINTOUT 
6431 023666 022600 CMP (SP) ¢,RO sDURING ABOVE OPERATION OWLY IE!DVA!IGO 
6432 sAND COMMAND SHOULD BE SET 
6433 023670 601405 BEQ 648 sBRANCH IF GOOD 
6434 023672 810037 901126 MOV RO,@8S8BODAT sBAD DATA 
6435 923676 010137 404464 MOV Ri, @eREGADR sFAILING REGISTER RHCSi 
6436 623702 104021 ERROR a1 sDURING ABOVE OPERATION ONLY 
6437 sCOMMAND AND TE!DVA!GO SHOULD BE SET 
6438 23794 612746 610500 6483 MOV sMOLIDPRIVV, (SP) 9SAVE BITS SET DURING OPERATION IN RHDS1 
6439 623710 611637 001124 MOV (SP), @8SGDDAT sSAVE FOR PRINTOUT 
6440 0623714 9822605 CMP (SP)¢,RS sDURING ABOVE OPERATION ONLY MOLIDPRIVV 
6441 +SHOULD BE SET 
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6442 823716 001405 BEQ 668 sBRANCH IF GOOD 

6443 823720 810537 901126 MOV RS,@8SBDDAT sBAD DATA 

6444 023724 810337 004464 MOV P3,@@REGADR sFAILING REGISTER RHDS1 

6445 823730 104063 ERROR 63 sDUPRING AROVE OPERATION ONLY 

6446 sMOLIDPRIVV SHOULD BE SFT 

6447 823732 6683 

6448 

6449 sNOW CHANGE SAVED REGISTERS TO EXPECTED VALUES 

6450 023732 404037 427762 JSR RO, @8FILLRE s4OV @ INTO SAVED RHWC 

6451 923736 902164 RHWC :SAVED REGISTER TO CHANGE 

6452 23740 00000 0 sDATA 

6453 023742 004037 427762 JSR RO, @8FILLRE sMOV REINTO*<256.82> INTO SAVED RHBA 

6454 023746 002166 RHBA sSAVED REGISTER TO CHANGE 

6455 023750 004420 PEINTO+¢<256,¢2> sDATA 

6456 423752 004037 627762 JSR RO, @GFILLRE sMOV 1 INTO SAVED RHDST 

6457 823756 002176 RHDST sSAVED REGISTER TO CHANGE 

6458 023769 0800001 1 sDATA 

6459 9923762 904937 627762 JSR RO, @OFILLRE s“OV @ INTO SAVED RHCC 

6460 623766 002226 RHCC :SAVED REGISTER TO CHANGE 

6461 923770 06909000 ® sDATA 

6462 

6463 sNOW COMPARE REGISTERS BEFORE READ DATA WITH 

6464 sAFTER COMMAND 

6465 

6466 023772 984037 631°° JSR RO, @8COMREG sCOMPARE SAVED REGISTERS WITH 

6467 sPRESENT VALUE 

6468 23776 904476 SAVERE #4000 DATA SAVED IN °SAVERE* 

6469 0624900 602242 we sTEST DATA STARTING FROM °RHWC? 

6470 024002 600022 18. 918, REGISTERS TO BE COMPARED 

6471 424004 624010 18 sRETURN TO 18 OW ERROR 

6472 024006 624014 23 sRETURN TO 28 ON NO ERROR 

6473 

6474 024010 104033 183 ERROR 33 sREAD DATA CAUSED IMPROPER REGISTER 

6475 0624012 890207 RTS pc s CHANGE 

6476 3GOOD DATA GIVES WHAT SHOULD BE THERE 

6477 sRECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND 

6478 sNOW READ INTO BUFFER WILL BE CHECKED TO SEE THAT READ 

6479 sWAS GOOD 

6480 924014 283 

6481 ; } 

6482 024014 004037 0632070 JSR RO, @sCOMPAR sCOMPARE TWO BLOCKS OF MEMORY 

6483 0274020 002354 WRFROM 3GOOD DATA STARTS FROM WRFROM 

6484 024022 003420 REINTO sTEST DATA STARTS FROM REINTO 

6485 424024 600400 256, 3256, WORDS TO BE COMPARED 

6486 8624026 624032 38 sRETURN TO 38 ON ERROR 

6487 9249030 024036 4s sRETURN TO 48 ON NO ERROR 

6488 : 

6489 

6490 924032 104034 38% ERROR 34 sREAD DATA ERROR AFTER WRITING INTO 

6491 024934 8600207 RTS pc sRHAS DURING READ 

6492 

6493 24736 483 

6494 

6495 FSSSSSHSSSSSSSHSSSHSHHSHSHSSSHSSHHSSSSHSHHSHSSHSHHHHHHHHSHSSHOSEHSSSSCSHESES 

6496 s®TEST 31 ILLEGAL FUNCTION BIT #@@ IN RHERI 

6497 
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6498 
6499 
6500 
6591 
6502 
6503 
6504 
6545 
6506 
6507 
6508 
6509 
6510 
6511 
6512 
6513 
6514 
6515 
6516 
6517 
6518 
6519 
6520 
6521 
6522 
6523 
6524 
6525 
6526 
6527 
6528 
6529 
6530 
6531 
6532 
6533 
6534 
6535 
6536 
6537 
6538 
6539 
6540 
6541 
6542 
6543 
6544 
6545 
6546 
6547 
6548 
6549 
6550 
6551 
6552 
6553 


ne TO TL TT TL 


024036 
#24040 
024044 


24052 


024056 
924062 
024066 
024072 
024076 
024190 
424106 
024110 
@24112 
024114 
024122 
024124 
024126 
024132 
024140 


024146 


924154 
024154 


024160 
024164 
024170 


924176 
024200 


924296 


024212 
24216 
924222 
024226 
024230 


T31 


000004 
012706 
012737 


004737 


005037 
012700 
0127905 
823720 
001004 
062737 
000765 
405305 
001367 
032737 
001001 
090402 
000137 
013737 
062737 


012737 


004737 


005077 
005077 
023727 


103014 
012737 


005037 


0059037 
095037 
065037 
000500 
022737 
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001900 
000031 


396A 


001172 
092310 
000021 
001172 


024642 
001172 
080002 


024154 


0390060 


156000 
155776 
002352 
10090@ 
024570 
024574 
024604 
024614 


000064 


004470 


001172 


001172 


002352 


001172 


000050 


024546 
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ILLEGAL FUNCTION BIT #0 IN RHERI 


30 THIS WILL CALCULATE EVERY ILLFGAL FUNCTION 
se BETWEEN @ AND 77, EACH TIME AN ILLEGAL FUNCTION 
30 TS FORMED IT WILL BE STORED IN ILLEGAL THEN 

3° EXECUTION OF ILLEGAL 

1° WILL BF ATTEMPTED AND RESULTS CHECKED 


FSSSSSHSSHHHOHHSOSESSHOSHSSOSSHSHSHHSOHSSSSOSSSOSOSETESSSESEGOO 
TST31: SCOPE 


MOV @STACK,SP sRESET STACK 
MOV 031,@0TSTNM sSAVE TEST NUMBER 
JSR PC, @e@CLDISK sSET PieRHCS1, R2°RHCS2 


sP3I°RHDS1, R4&oRHERI 
sGIVE RHeii INITIALIZE 
sSETUP UNIT NUBER 


+GENERATE ILLEGAL FUNCTION 


CLR @esTMP! sGET READY TO MAKE ILLEGAL FUNCTION 
18: MOV @FUTABL, ROA sGET POINTER TO BEGINNING OF COMMANDS 
MOV 617,-R5 sCOUNTER (17 GOOD FUNCTIONS) 
283 cme OCSTMP1, (RO)e 21S THIS A LEGAL FUNCTION 
BNE 38 sBRAWCH IF NOT LEGAL 
ADD 62, @8STMPi sMAKE ANOTHER FUNCTION 
BR 18 sGET READY TO TEST NEW FUNCTION 
38% DEC PS sNOT LEGAL $0 DECREMENT COUNTER 
BNE 28 sBRANCH IF 17 NOT DONE 
BIT 8100,@8STMP! sALL BITS UP TO BIT 8S COMPARED? 
BNE 208 sBRANCH OUT IF DONE 
RR 198 sBRANCH TO CONTINUE 
2063 JMP e078 3 DONE 
1983 MOV OSSTMP1,@8ILLEGL sAN ILLFGAL FUNCTION IS FOUND 
ADD 82,@06TMPi sGET READY FOR NEW FUNCTION NEXT TIME 


sILLEGAL FUNCTION HAS BEEN FOUND 

sIT IS TN °ILLEGL’ 

MOV 648, @8S8LPERR sERROR RETURN POINT 
2SAVE REGISTFRS FOR COMPARISON AFTER GO 


48: 
JSR PC, @SCLDISK :SET R1eRHCS1, R2-RHCS2 
sRI°RHDS1, R4oRHERY 
sGIVE RHoil INITIALIZE 
sSETUP UNIT NUBER 
CLR @RHWC sCLEAR WORD COUNT 
CLR @PHBA sCLEAP BUS ADDRESS 
cup @sILLEGL, 050 35@ AWD HIGHER FUNCTIONS ARE DATA 
SFUNCTIONS WHICH WILL SET #XF AND TRE 
BHIS 138 :BRANCH IF ILLEGL IS HIGHER THAN SO 
MoV @SC, 08118012 sEXPECTED VALUE OF RHCS1 SHOULD HAVE 
sONLY SC ADDED | 
CLR 08126012 sEXPECTED VALUE OF RHCS2 SHOULD HAVE 
sNOTHING ADDED 
CLR 00128016 3NO BITS TO BE CLEARED IW RHCS2 
CLR 0015846 sRHBA SHOULD BE @ 
CLR 0916806 sCLEAR SAVED RHWC 
BR 148 :BRANCH 
138% cup 064, @¢ILLEGL 218 FUNCTION 64 
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6554 024236 801023 BNE 178 sBRANCH IF NOT 
6555 424240 012737 140700 024546 MOV @SCITPE,@8118¢12:SAVED RHCS1 SHOULD HAVE SC AND TRE 
6556 024246 612737 00204 24604 MOV €204,0815$+46 gRHBA SHOULD HAVE 204 
6557 24254 012737 6800102 624614 MOV 9102,8816846 sRHWC SHOULD HAVE 142 
6558 0624262 012737 @A1208 82457¢ MOV @MXFIOR,@891264123PHCS2 SHOULD HAVE MXF AND OR 
6559 024270 0612737 990100 024574 MOV @IR,@80128416 sRHCS2 SHOULD HAVE IP CLEAPED 
6560 024276 0800454 BR 148 sBRANCH 
6561 024300 22737 000066 002352 1783 cme 866, @¢ILLEGL 31S FUNCTION 66 
6562 024306 001030 BNE 186 sBRANCH IF NOT 
6563 0274310 012777 177672 155646 MOV @-70,,@RHWC 2 MOVE 7@ INTO RHWC 
6564 024316 012777 0602354 155642 MOV @WRFROM, @RHBA sFILL RHBA WITH WRFROM 
6565 0624324 12737 140000 024546 “OV @SCITRE,@8118¢12;SAVED RHCS1 
6566 024332 612767 002150 000244 MOV @WRFROM-<66 ,.#2>,156¢6;RHBA 
6567 824340 812767 177774 =800246 MOV @-4.,,168¢6 sSAVED RHWC 
6568 824346 612737 0601200 024570 MOV OMXFSOR, @9128¢12 SAVED RHCS2 
6569 624354 005037 #24574 CLR 00128416 sRHCS2 
6570 €24360 012737 600100 0624574 MOV IP, 00128416 sRHCS2 SHOULD HAVE IR CLEARED 
6571 €@24366 0600420 BR 148 : BRANCH 
6572 024370 005077 155570 1883 CLR @RHWC s;CLEAR RHWC 
6573 024374 605077 155566 CLR @RHBA sCLEAR RHBA 
6574 024400 0612737 14000@ 024546 MOV @SCITRE,@0116¢12:RHCS1 SHOULD HAVE SC AND TRE 
6575 @24406 005037 0624604 CLR 0915846 sRHBA 
6576 024412 0605937 024614 CLR 0816646 sRHWC 
6577 024416 612737 001000 024570 “OV OMXF,@89126¢12 sRHCS2 
6578 024424 005037 024574 CLR 09128016 sRHCS2 
6579 824430 1483 
658A 0824430 004937 830220 JSR RO, @@SAVER SAVE REGISTERS 
6581 024434 002164 RHWC sRHWC IS THE FIRST REGISTER SAVED 
6582 024436 004476 SAVERE sSTARTING ADDRES OF WHERE 
6583 sTHE REGISTERS ARF SAVED 
6584 024440 080022 18, sNUMBER OF REGISTERS 
6585 SAVED = 186, 
6566 
6587 024442 004737 030140 JSR PC, @OCHECKT sCHECK DVA,ROY,MOL,DPP,DRY,VV 
65988 
6589 024446 613746 602352 MOV @CILLEGL,-(SP) :GET ILLEGAL FUNCTION 
6590 024452 052716 600101 BIS eGOLIE, (SP) sTNCLUDFE IE AND GO 
6591 024456 612611 MOV (SP)¢,@R1 3GO TO RHCS1 WITH ILLEGAL FUNCTION 
6592 
6593 024460 104420 WAT WAIT FOR RDY BIT TO SET 
6594 0824462 0602172 RHCS1 sWAIT FOR RHCS1 REGISTER 
6595 024464 4002060 : RDY sWAIT FOR RDY BIT IN RHCS1 REGISTER 
6596 024466 601614 908, sALLOW 90860 MICRO SECONDS 
6597 24470 001613 907, sRDY MUST SET BETWEEN 
6598 214 AND 1815@ MICRO SECONDS 
6599 
66200 sCHANGE SAVED REGISTERS TO EXPECTED VALUE 
6601 
6622 624472 644037 630732 JSP RO, @8CHREG sCHANGE BITS IN SAVED REGISTER 
66793 924476 002174 RHERI sCHANGE RHERI REGISTER 
6604 
6605 024590 000001 i 21 BIT/SITS TO BE CHANGED 
6606 24592 890001 i sNEW VALUE OF ILF IS ? 
6607 €@24504 9009001 ILF sCHANGE ILF BIT 
6698 ° 
6609 24506 804037 630732 . JSR RO, @9CHREG sCHANGE BITS IN SAVED REGISTER 


i Le al 
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DERPVB,.P1i1 T31 ILLFGAL FUNCTION BIT #@ IN RHERI 
6618 924512 902214 RHDS1 sCKANGE RHDS1 REGISTER 
6611 
6612 924514 #90002 2 32 BIT/BITS TO BE CHANGED 
6613 024516 300001 1 sNEW VALUE OF ATA IS 1 
6614 024520 179000 ATA sCHANGE ATA BIT 
6615 424522 000901 1 sNEW VALUE OF ERR IS 1 
6616 624524 340900 ERP sCHANGE FRR AIT 
6617 
6618 24526 053737 604622 004522 BIS @SATTENT, @8SAVFRES24 sSET APPROPIATE ATA BITS 
6619 7FOR WORKING DRIVE IN 
6620 sSAVED RHAS LOACTION 
6621 :RPHCS1 WILL HAVE SC AND TRE ADDED IF FUNCTION ITS GREATER THAN 50 
6622 824534 1188 
6623 
6624 024534 0604037 030732 JSR PO, @8CHREG sCHANGE BITS IN SAVED REGISTEP 
6625 924540 902172 RHCS1 sCHANGE RHCS1 REGISTER 
6626 
6627 824542 870001 1 21 BIT/BITS TO BE CHANGED 
6628 824544 800001 1 sNEW VALUE OF SC IS 1 
6629 024546 100000 sce :CHANGE SC BIT 
6630 024550 653737 992352 904504 BIS OCTLLEGL, @OSAVERES6; INCLUDE ILLEGAL FUNCTION 
6631 gIN RHCS) 
6632 sPHCS2 WILL HAVE NOTHING ADDED IF FUNCTION IS LESS THAN $0 
6633 0824556 1283 
6634 
6635 24556 904037 930732 JSR RA, BOCHREG sCHANGE BITS IN SAVED RFGISTEP 
6636 024562 602170 RHCS2 sCHANGE RHCS2 REGISTEP 
6637 
6638 424564 800002 2 32 BIT/BITS TO RE CHANGED 
6639 0824566 000001 1 sNEW VALUE OF MXF IS 1 
6640 24570 0801000 MXF sCHANGE MXF BIT 
6641 924572 990000 ) sNEW VALUE OF IR IS @ 
6642 024574 600100 IP sCHANGE IR BIT 
6643 624576 1583 
6644 024576 404037 827762 JSR PO, @SFILLRE s4OV @ INTO SAVED RHBA 
6645 924602 602166 RHBA sSAVED REGISTER TO CHANGE 
6646 924604 000000 a sDATA 
6647 924606 1683 
6648 924606 @84037 027762 JSR PO, @eFILLRE sMOV @ INTO SAVED RHWC 
6649 824612 982164 RHWC sSAVED REGISTER TO CHANGE 
6650 624614 0680000 e sDATA 
6651 
6652 sNOW COMPARE PEGISTERS AFTER GIVING AN ILLEGAL COMMAND 
6653 
6654 8624616 904037 431040 JSR RA, @8COMREG sCOMPARE SAVED REGISTERS WITH 
6655 sPRFESENT VALUE 
6656 924622 904476 SAVERE 1GOOD DATA SAVED IN °SAVERE* 
6657 024624 002242 we sTEST DATA STARTING FROM “RHWC® 
6658 924626 800022 18, 318, REGISTERS TO BE COMPARED 
6659 924630 024634 58 sRETURN TO S$ ON ERROR 
6669 024632 924640 68 sRETURN TO 68 ON NO ERROR 
6661 
6662 024634 104951 58: ERROR 51 sGIVING ILLFGAL FUNCTION CAUSED 
6663 @24636 000207 RTS pc s IMPROPER REGISTER CHANGE 
6664 :GOOD DATA GIVES WHAT 


6665 sSHOULD BE THERE 





MAINDFC#11°DEFPV<-B 
DERPVB.P11 


6666 
6667 
6608 
6669 
6670 
6671 
6672 
6673 
6674 
6675 
6676 
6677 
6678 
6679 
6680 
6681 
6682 
6683 
6684 
6685 
6686 
6687 
6688 
6689 
6690 
6691 
6692 
6693 
6694 
6695 
6696 
6697 
6698 
6699 
6700 
6701 
6742 
6703 
6704 
6705 
6706 
6707 
6708 
6709 
671 
6711 
6712 
6713 
6714 
6715 
6716 
6717 
6718 
6719 
6729 
6721 


024640 
024642 
024642 


024642 
024644 
#24650 


074656 


024662 
024670 
A24674 


024709 


024704 
024710 
24712 
024714 
024720 
024724 
024726 
924730 


024736 


024742 


024746 
024752 
024760 


T31 


000249 


000904 
012796 
012737 


004737 


012777 
012700 
010077 


012718 


412720 
8059020 
295020 
012705 
012720 
095 305 
001374 
012777 


004737 


13711 


005937 
#12777 
005977 
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001000 
000032 


030060 


177374 
002354 
155266 
010000 
000001 
690400 
177777 
000001 
030140 


994616 
e10700 
155220 


004470 


155274 


155240 


155222 
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sRECEIVED DATA GIVES REGISTER 
sCONTFNTS AFTFR ILLEGAL 
sFUNCTION WA GIVEN 

NOP 


3 JUMP @61$;BRANCH FOR NEXT FUNCTION 


s®TEST 32 ERROR REGISTER 1 = BIT #13 OPT 
28 A WRITE HEAPER AND DATA COMMAND IS GIVEN 
3# CYLINDER @ SECTOR 1 TRACK @ KFYS @ DATA 177777 
3 WORDCOUNT 260 
28 
i) AFTER GO 1S GIVEN THEN THREE INDEX PULSES ARE 
3 GIVEN, THIS SHOULD BRING OPI HIGH 
PETIT ITI TIT I IIIT iiitiririiiiiyy 
TST32: SCOPE 

MOV @STACK,SP sRESET STACK 

MOV €32,@8TSTNM 2SAVE TEST NUMBER 

JSR PC, @8CLDISK sSET RieRHCS1, R2=-PRHCS2 


sR3°RHDS1, R4-RHERI 
sGIVE RHe1ll INITIALIZE 
sSETUP UNIT NUBER 


#THESE ARE REGULAR SETUPS 


MOV #-260,,@RHWC 2256 DATA WORDS 4 HEADER WORDS 

MOV SuURFROM,RO THESE TWO INSTRUCTIONS GETS 

MOV P?@,@RHBA 2ADDR, OF WRFROM INTO RO AND 
sBUS ADDRESS REGISTER 

MOV @FMT22,(RO)3 sFORMAT#16 BIT WORDS 
sCYLINDER2O 

MOV 01,(CRO)¢ sTRACKs@, SECTORs1, KEYSs@ 

CLR (PRO) sKEY1s0 

CLR (RO)¢ sKEY220 

MOV 0256..R5 sCOUNTER 

183 MOV #-1,(RO)*o sMOVE ALL ONES FOR DATA 

DEC RS 

BNE is sBRANCH IF DATA NOT COMPLETE 

MOV #1,@RHDST sTRACKs9 SECTOR=1 

JSR PC, @sCHECKT sCHECK DVA,ROY,MOL,DPR,DRY,VV 

MOV @ewPIFOR,@R1 3GET PEADY FOR WRITE HEADER AND 
DATA WITH 62 IN RHCSi 

CLR @sERFLGS s;CLEAR ERROR FLAG 

MOV eF“T22,@RHOF sFORMAT BIT#1 (16 BIT WORDS) 

CLR @RHCA sCYLINDER sO 








MAINDEC ©11eDEPPVoB 
DERPVS Pil 


6722 
6723 
6724 
6725 
6726 
6727 
6728 
6729 
673A 
6731 
6732 
6733 
6734 
6735 
6736 
6737 
6738 
6739 
6742 
6741 
6742 
6743 
6744 
6745 
6746 
6747 
6746 
6749 
6750 
6751 
6752 
6753 
6754 
6755 
6756 
6757 
6758 
6759 
6769 
6761 
6762 
6763 
6764 
6765 
6766 
6767 
6768 
6769 
6770 
6771 
6772 
6773 
6774 
6775 
6776 
6777 


2 —— le 


024764 
024770 
024772 


@24774 


024776 
425002 
025006 
A25012 


025016 


025024 
025026 
02503a 
925032 
025034 


025036 
0250942 


025946 
025952 


925956 
025962 


025066 
025972 


025074 
025976 
025100 
025102 
025104 


T32 


004037 
002164 
094476 


900223 


#13700 
012710 
052719 
042710 


052777 


104420 
002170 
600200 
001604 
001604 


052710 
042719 


052710 
#42710 


$2710 
042710 


004037 
062172 


000002 
aneeet 
190002 
00901 
40000 


MACY11 
EPROR 


830220 


002212 
ea0eel 
AOORO4 
O70004 


000004 
000004 


600004 
OAAGH4 


006904 
008004 


030732 


27(732) 
REGISTER 


155146 
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1 © RIT 013 OPI 


:SAVE PFGISTERS FOR COMPARAISON AFTER READ 


JSP RA, @@SAVER sSAVE REGISTERS 
RHWC sRHWC IS THE FIRST RFGISTFR SAVED 
SAVERF SSTARTING ADDRES OF WHERE 
sTHE REGISTFRS ARE SAVED 
19, sNUMBER OF REGISTERS 


SAVED 2= 19, 


360 TO WRITF HEADER AND DATA 

sBUT REFOPF GO ONE INDEX PULSE IS GIVEN 

:TO CLEAR OUT THE SECTOP CLOCK COUNTER 

2SO THAT NO SECTOR PULES COMES IN THIS TEST 


MOV OGRHMR, PO sNOW RO HAS MATNTENANCE REG, ADDR. 
MOV sDMD,@RA sS&ET MIAGNOSTIC MODE 

BIS eMINX, ORO sSET INDEX 

Bric eMINX,@PA sCLEAR INDEX THIS GIVES 


sONE INDEX PULSE 
BIS #GO,@RHCSi 360 


sWAIT FOR OR BIT IN RHCS2 TIME IS NOT IMPORTANT 


WAT sWAIT FOR OR BIT TO SET 

RHCS2 sWAIT FOR RHCS2 REGISTER 

OR sWAIT FOR OR BIT IN RHCS2 REGISTER 
900, sALLOW 9800 MICRO SECONDS 

900, :OR MUST SET BETWEEN 


:9@ AND 18000 MICRO SECONDS 


BIS eMINX,@RO sSET INDEX CLOCK 
BIC OMINX,@RO sRESET INDEX CLOCK 
sSECOND INDEX PULSE 

BIS @MINX,@RO sSET INDEX 

BIC OMINX,@RA sCLEAR INDEX 
sTHIRD INDEX PULSE 

BIS eMINX,@RO sSET INDEX 

BIC eMINX,@RO sCLEAR INDEX 


sCHANGE SAVED REGISTERS TO EXPECTED VALUE 


JSP RO, @8CHREG sCHANGE BITS IN SAVED REGISTER 
RHCS1 sCHANGE RHCS1 REGISTER 

2 32 BIT/BITS TO BE CHANGED 

1 sNEW VALUE OF SC IS 1 

sc sCHANGE SC BIT 

1 sNEW VALUE OF TRE IS 1 

TRE sCHANGE TRE BIT 


MAINDEC*11eDERPV-R 
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6778 
6779 
6780 
6781 
6782 
6783 
6784 
6785 
6766 
6787 
6788 
67869 
6799 
6791 
6792 
6793 
6794 
6795 
6796 
6797 
6798 
6799 
6809 
6801 
6902 
6803 
6804 
6805 
6806 
6807 
6808 
6809 
6819 
6811 
6812 
6813 
0814 
6815 
616 
6817 
6818 
6819 
6820 
6871 
6822 
6823 
6824 
6825 
6826 
6827 
6828 
6829 
6830 
64831 
6832 
6833 


025106 
@2511? 


025114 
25116 
925120 
025122 
025124 
075126 
025132 
25134 


#25136 
025142 


025144 
025146 
025150 


025152 


025160 
025164 


025166 
025170 
#25172 


025174 
025202 
925210 
025214 
025220 
025226 


025232 


825236 
025240 
025242 
925244 
025246 


925250 
925252 


T32 


904837 
02214 


99002 
OAA001 
100000 
AC0GA1 
040000 
604037 
902176 
0800002 


004037 
002174 


000001 
800001 
820000 


053737 


094037 
002212 


017737 
017737 
017746 
042716 
042737 
052637 


004037 


004476 
902242 
900021 
025259 
#25254 


104071 
900207 
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430732 


027762 


030732 


074622 


030732 


154764 
154760 
154754 
177477 
400300 
004502 


004522 


004476 
074500 


094592 
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JSR RO, @SCHREG sCHANGE KITS IN SAVED REGISTER 

RHDS1 sCHANGE RHDS1 RFGISTEP 

2 32 RIT/BITS TO BE CHANGED 

1 sNEW VALUE OF ATA IS 1 

ATA sCHANGE ATA BIT 

1 sNEW VALUE OF ERR IS 1 

ERR sCHANGE FRP BIT 

JSP PA,@OeFILLRE s“OV 2 INTO SAVED RHDST 

RHDST sSAVED REGISTER TO CHANGE 

2 sDATA 

JSR RP, @eCHREG sCHANGE BITS IN SAVED REGISTER 

RHEP! sCHANGE SHEP] REGISTER 

i 31 BIT/BITS TO BF CHANGED 

1 sNEW VALUE OF OPI IS 1 

OPT sCHANGE OPI BIT 

BIS OSATTENT, @OSAVERES24 sSET APPROPIATE ATA BITS 
sFOR WORKING DPIVE IN 
sSAVEND RHAS LOACTION 

JSR PO, @eCHREG sCHANGE BITS IN SAVED REGISTER 

RHR sCHANGE RHMR REGISTER 

s} 1 BIT/BITS TO BE CHANGED 

1 sNEW VALUE OF DMD IS 1 

DMD sCHANGE DMD BIT 


sRHWC,RHBA AND OR AND IP BITS OF RHCS2 WILL NOT BE CHECKED 


MOV @PHWC,@8SAVERE ;SAVED RHWC 

MoV @RHBA, @8SAVERES? sSAVED RHBA 
MOV @RHCS2,°( SP) 3GET RHCS2 

BIc e°C<IRIOR>, (SP) sGET IR OR STATES 

BIC @IRIOR, @9SAVERES4 :CLEAR IR OR 
BIS (SP), @8SAVERE¢4;SET OR IR AS REQUIRED 


sCOMPARE REGISTERS BEFORE WRITE WITH AFTER ATTEMPT 


JSR PA, @8COMREG sCOMPARE SAVED REGISTERS WITH 
sPRESENT VALUE 

SAVEPRE :GOOD DATA SAVED IN °SAVERE’ 

we sTEST DATA STARTING FROM “RHWC® 

17, 317. REGISTERS TO BE CO¥PARED 

28 sRETURN TO 28 ON ERROR 

3s sRETURN TO 38 ON NO ERROR 

ERROP 71 sFORCING OPI 

RTS pc sCAUSED 


s IMPROPER REGISTER CHANGE 

GOOD DATA GIVES WHAT SHOULD BE 

3 THERE 

sRECEIVED DATA GIVES WHAT WAS THERE 


SEQ #152 





MAINDEC 211 °DERPV=B 
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6834 
6835 
6836 
6837 
6f38 
6839 
0840 
6841 
6842 
6843 
0844 
6845 
6846 
6847 
0848 
6849 
6850 
6851 
6852 
6853 
6854 
6855 
6°56 
6857 
6858 
6859 
6860 
6861 
6862 
6863 
6864 
6865 
6866 
6867 
6868 
6869 
6872 
6871 
6872 
6873 
6874 
6875 
6876 
6877 
6878 
6879 
6889 
68681 
6882 
6863 
6884 
6885 
6886 
6887 
6868 
6889 


nnn I LL LLL 


025254 


025260 
425262 
025266 


A25274 


025300 
025306 
025314 


025322 


925322 
025326 
025330 
025332 
025334 
025336 
025340 


025342 


T32 


004737 


00004 
012706 
012737 


004737 


012737 
012737 
012737 


004037 
082354 
000904 
810090 
090025 
900000 
0003800 


MACY11 27(732) 


30°60 


027704 


004470 


025334 
025350 
004630 


1A8eFER©76 16327 PAGE 125 SEQ #153 
FRROP RFGISTEP 1 © BIT #13 OPT 


sAFTER 3 INDEX PULSES 


4¥$s JSR PC, @eCLDISK sCLEAR GO BIT 


s@TEST 33 ERROP REGISTEP 61, BIT #13 OPI 

3° THIS WILL TEST THAT OPT DOES NOT SET WHEN THREE NORMAL 
hd INDEX PULSES ARE ENCOUNTERED IN A READ COMMAND 
tad FIRST 46 CONSFCUTIVE SECTORS WILL BE FORMATTED 
3@ STARTING FROM CYLINDER @ TRACK @ SECTOR 21. 

3@ FORMATTING WILL BE DONE BY A WRITE HEADER AND 
3¢ DATA CO“MAND FOR 4 WORDS, ONE SECTOR 

bd AT A TIME 

38 

38 THEN A PFAD HEADER AND DATA WILL BE DONE 

38 FOR CYLINDER @ TRACK @ SECTOR 21 FOR 

38 11960 WORDS (260,X%22X%24260+260) WITH BUS 

36 ADDRESS INHIBIT SET, 

38 

Lad AT THE END ALL REGISTERS WILL BE CHECKED. 


PESSOSOHSSSSHHLHHSOOSHSSOHS SESH SOHHSSESHSSHOHSTSSHSUSESOHOESOSOS 
TST33: SCOPE 


MOV @STACK,SP sRESET STACK 
MOV 633,88TSTNM sSAVE TEST NUMBER 
JSR PC, @sCLDISK sSET RieRHCS1, R2-RHCS2 


sR3-RHDS1, P4-RHERI 
sGIVE RH-ii INITIALIZE 
sSETUP UNIT NUBER 


MOV 621..0818¢12 sSET UP TO START FROM 
MOV 621.,082646 sSECTOR 21. 
MOV 846,,@0TMPI 346 SECTORS TO COVER 3 TRACKS 
sFILL WRITE FROM BUFFER WITH HEADER 
163 
JSR RO, @SFLHEAD sSAVE HEADER DATA IN WRFROM 
WRFPOM sLOCATION WHERE SAVED 
4 sNUMBER OF WORDS SAVED 
19400 sFIRST DATA WORD 
21. sSECOND DATA WORD 
9 sTHIRD DATA WORD 
a sFOURTH DATA WORD 
sNOW THE WRITE HEADER AND DATA COMMAND WILL BE FILLED 
263 


MAINDEC #1 1-DERPVeB MACY11 27(732) 18°eFFR*276 16322 PAGE 176 SEQ 0154 
DERPVB,P11 T33 EPROR REGISTER #1, KIT 813 OPT 
689% 025342 004037 4327024 JSR RA, @SRUN sSETUP TO PUN FOR DATA COMMAND 
6891 8625346 “490000 a sCYLINDER @ 
6892 025350 025 ePYTE 21. sSECTOR 21, 
6893 #25351 000 eBYTE 0 sTPACK @ 
6894 925352 177774 ones +WOPRD COUNT (DATA) 2@¢ 
6895 34 HEADER WORDS 
6996 025354 92354 WPRFROM sBUS ADDRESS 
6897 sSTARTING ADDRESS OF DATA 
6898 sBUFFER & WRFROM 
6899 25356 000400 8 300 NOT INHIBIT BUS ADDRESS INCREMENT 
6990 25360 7120000 F“T22 316 BITS PER WORD FORMAT 
6901 300 NOT INHIBIT ECC CORRECTION 
6902 390 NOT INHIBIT HEADER COMPARE 
€903 825362 ©02332 WRIFOR 3GET PEADY TO DO A WRIFOR 
6904 +WRITF HEADER AND DATA WITH 62 IN PHCS1 
6905 
6906 
6907 425364 04737 30140 JSR PC, @8CHECKT sCHECK DVA,POY,“OL,DPR,DRY.VV 
6908 
6909 
6910 025370 613777 404472 154562 MOV @ORP4VEC,@RPVEC sSET PPA4 VECTOR ADDRESS 
6911 3TO °TIME1® IF PeCLOCK IS PRESENT 
6912 :0P TO °TIME2° IF PeCLOCK 1S NOT PRESENT 
6913 s°TIME’ WILL ONLY SAVE 
6914 sCURRENT CYLINDER ADDRESS 
6915 sAND LOOK AHEAD REGISTERS 
6916 
6917 
6918 0625376 413746 042332 MOV @OWRIFOR,°(SP) sGET READY TO MOVE COMMAND 
6919 825492 52716 090101 BIS eGOLTIE, (SP) sGET READY TO SET GO AND 
6920 sENABLE INTERRUPT 
6921 825496 012677 154560 MOV (SP), @RHCS! 3GO WITH 
6922 962 IN RHCS1 FOR WRITE HEADER AND DATA 
6923 sWITH INTERRUPT ENABLED 
6924 925412 #11100 MOV @R1,R0 sSAVE RHCS1 DURING ABOVE OPERATION 
6925 025414 811305 MOV @R3,R5 sSAVE RHDS1 DURING ABOVE OPERATION 
6926 
6927 sONE REVOLUTIONS1667@ MICRO SFC, ONE SECTOR®S76@ MICRO SEC 
6928 
6929 825416 1094420 WAT sWAIT FOR RDY BIT TO SET 
6930 025420 602172 ‘ RHCS1 sWAIT FOR RHCS1 REGISTER ‘ 
6931 0625422 080200 ROY sWAIT FOR ROY BIT IN RHCS1 REGISTER 
6932 925424 003237 1695, sALLOW 1695@ “MICRO SECONDS 
6933 6825426 601515 @45, sRDY MUST SET BETWEEN 
6934 39500 AND 2549@ MICRO SECONDS 
6935 
6936 sNOW OWE MORE SECTOR HAS BEEN WRITTEN 
6937 3SC WILL BE CHECKED TO MAKE SURE 
6938 sNO ERRORS OCCURED 
6939 025430 017737 154536 0682250 MOV @RHCS1,@8CS1 3GET RHCS1 
6949 025436 832737 100000 002250 BIT oscC,e@scsi 81S SC SET 
6941 925444 0601403 BEQ 38 sBRANCH IF NO 
6942 025446 604737 031764 JSR PC, @SPUTREG sSAVE REGISTERS 
6943 025452 104072 EPROR 72 sTHERE WAS AN ERROR AFTER 
6944 sA WRITE HEADER AND DATA, 


6945 sONE SECTOR HAS BEEN FORMATTED NOW 





MAINDEC $11 -DERPV<B 
DFRPVB.P11 T33 
6946 
6947 
6948 
6949 @25454 913705 
6950 025460 0875205 
6951 925462 122705 
6952 25466 001405 
6953 025470 810537 
6954 025474 610537 
6955 02550¢ #00410 
6956 25502 195037 
6957 625506 105237 
6958 825512 105037 
6959 #25516 105237 
6960 625522 095337 
6961 25526 901275 
6962 
6963 
6964 
6965 
6966 
6967 
0968 
6969 025530 04737 
6970 
6971 
6972 
6973 
6974 
6975 025534 9040637 
6976 825540 600000 
6977 025542 025 
6978 25543 000 
6979 0625544 150510 
698a 
6981 825546 003420 
6982 
69863 
6984 25550 800019 
6985 #25552 #14900 
6986 
6987 
6988 025554 002336 
6989 
6990 
6991 
6992 25556 004737 
6993 
6994 
6995 25562 013777 
6996 
6997 
6998 
6999 
1000 
7001 


MACY11 27(732) 
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925334 
070026 


#25334 
02535 


025334 
425335 
025350 
025351 
00463¢ 


230760 


032924 


030140 


004472 


154370 


18°FFB°76 16327 PAGE 127 SEQ #155 


4S: 


BYTE 
BYTE 


sCHANGES WILL PE MADE TO FORMAT NEXT SECTOR, 


MOV @016¢12,R5 3GFET SECTOR TPACK WORD 
INc RPS 

c’PB @22.0P5 77S IT 22 

BEQ 4s sBRANCH IF 21 IS DONE 
Fov RS,9918412 #RESTORE SECTOR TRACK 
MOV P5,9828+6 sRESTORE SECTOR TRACK 
wP $$ 

CLPRP @818¢12 sRESTORE SECTOR 

INCB 018413 sRESTORE TRACK 

CLRB @828e6 sRESTORE SECTOR 

T™NCB 082807 sRESTORE TRACK 

DEC esTMPi sis 46 SECTORS DONE 
BWE 18 sBRANCH IF NOT 


sNOW 46 SECTORS HAVE BEEN FORMATTED 
sREAD HFADER AND DATA FOR 46 SECTORS#11960 WORDS 
sWITH BUS ADDRESS INHIBITED 


JSR PC, @sCLDISK sSET RieRHCS1, R2-RHCS2 
sR3°RHDS1, R4-RHERI 
sGIVE RHeit INITIALIZE 
sSETUP UNIT NUBER 

sFILL READ HEADER AND DATA COMMAND 


JSP FO, @eRUN sSETUP TO RUN FOR DATA COMMAND 
e sCYLINDER 6 
21. sSECTOR 21. 
Qa sTRACK @ 
-11956.,-4¢' sWORD COUNT (DATA)#11956.¢ 
24 HEADER WORDS 
RFINTO sBUS ADDRESS 


sSTARTING ADORESS OF DATA 
sBUFFER #& REINTO 
BAI sINHIBIT BUS ADDRESS INCREMENT 
FMT22:ECI 316 BITS PER WORD FORMAT 
sINHIBIT ECC CORPECTION 
300 NOT INHIBIT HEADER COMPARE 
REFOR sGET READY TO DO A REFOR 
sREAD HEADER AND DATA WITH 72 IN RHCS1 


JSR PC, @SCHECKT sCHECK DVA,RDY,MOL,DPR,ORY,VV 


MOV @SPP4VEC,@RPVEC :SET RP®4 VECTOR ADDRESS 
3TO °TIME1® IF PeCLOCK IS PRESENT 
sOR TO °TIME2° IF PeCLOCK IS NOT PRESENT 
s°TIME® WILL ONLY SAVE 
sCURRENT CYLINDER ADDRESS 
sAND LOOK AHEAD REGISTERS 


ee al 


MAINDEC 11 -DERPV-B 
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7A02 
7083 
7904 
71005 
746 
707 
yaaa 
7009 
7010 
7011 
7012 
7913 
7014 
7015 
7016 
7A17 
72018 
7019 
71020 
7021 
7422 
7023 
7024 
7825 
1026 
7027 
7028 
7029 
7030 
7031 
70932 
71033 
7434 
735 
7036 
7037 
7038 
7039 
7040 
7041 
7442 
7043 
7944 
7045 
7046 
7947 
7048 
7049 
71ase 
7051 
7952 
7053 
7454 
7055 
7056 
71057 


025570 
075574 


825600 


025604 
025606 


025610 
925612 
#25614 
025616 
925620 


025622 
025630 
925636 
925649 
025644 


25646 
025654 
025662 
025664 
425670 


925672 


T33 


013746 
057716 


012677 


011100 
#11305 


194420 
002172 
008200 
121329 
121320 


017737 
032737 
001403 
004737 
104973 


017737 
032737 
021403 
064737 
104074 


wACY11 27(732) 
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002336 
A70101 


154366 


154344 
19900¢ea 


031764 


154322 
020000 


031764 


002250 
042250 


18-FER©76 16322 PAGF 128 


78% 


BIT #13 OPT 


“OV @eREFOR,=(SP) 7GET PEADY TO MOVE COMMAND 
AIS eGOLTE,(SP) 3GET READY TO SFT GO AND 

sENABLE INTFRRUPT 
voV (SP)¢,@PHCS1 3GO WITH 

372 IN RHCS1 FOR READ DATA 

sWITH INTERRUPT ENABLED 
MOV @R1,RA sSAVE RHCS1 DURING ABOVE OPERATION 
“OV @P3,R5 sSAVE RHDS1 OURING ABOVE OPERATION 
sTIME IS NOT IMPORTANT 
WAT sWAIT FOR RDY BIT TO SET 
PHCS! sWAIT FOR RHCS1 REGISTER 
RDY sWAIT FOR ROY BIT IN RHCS1 REGISTER 
41680, sALLOW 416800 MICRO SECONDS 
41680, sRDY “UST SET BETWEEN 


39@ AND 17824@ MICRO SECONDS 


sNOW THAT ALL 11960 WOPDS HAVE REEN READ 
3SC WILL BE CHECKED FOR NO ERRORS 


MOV @RHCS1,2@8CS!1 31GET RHCS! 

BIT #SC,@ecsi 3tS sc S&T 

BEQ 66 sBRANCH IF NO 
JSR PC, @@PUTREG sSAVE REGISTERS 


EPROR 73 sREAD HEADER AND DATA 
sFOR 11960 WORDS 
sTHAT IS OVER THREE 
s INDEX PULSES CAUSED 


sAN ERROR 
MOV @PHERI,@8ER1 sGET RHERI 
BIT sOPT,@sERi 3IS OPI SET 
BEQ 7s sBRANCH IF NO 
JSR PC, @¢PUTREG sSAVE REGISTERS 
ERROR 74 sREAD HEADER AND DATA 


sOVER 3 INDEX PULSES 
sCAUSED OPI TO SET 


seTEST 34 HEAD SELECTION TEST 

38 THIS TESTS HEAD SELECTION LOGIC ONLY, A WRITE WEADER AND 
30 DATA COMMAND ITS GIVEN TO EACH TRACK FROM @ TO 18 ON 

3@ CYLINDER @, SECTOR @, 

70 THE DATA OW EACH SECTOR IS UNIQUE, THE LEAST SIGNIFICANT 
3° S BITS GIVE SECTOR THE NEXT LEAST SIGNIFICANT § BITS 

30 GIVE TRACK THE NEXT 6 BITS GIVE CYLINDER 

2° 

go THEN PEAD HFADER AND DATA IS DONE FOR THE ABOVE AND DATA 
28 CHECKED 

20 


MATINDEC #11 eDERPV=& MBCY11 2707327) I8eFER@7H 16322 PAGE 129 SEQ #157 
DFRPVA,P11 T34 HEAD SELECTION TFST 


7Aas8 RFTWEFN THE WRITF ANID PFAD ONLY FRR AND TRE ARE CHECKED 
7089 

TWAS 

7761 OM AN FRPOR T® THE READ HEADER AND PATA LOOPING WILL 3E 
7062 ONLY ON THE ERROR SECTOR READ 

7463 

THE4 FRSSSHSSSSSHSSSHSHSSHSSHSSSSHHHSSHSHSSESCHSSSSHSSESHSAHHSOHHHSHSHOHOOEES 
7765 825072 anAre4 TST34: SCOPF 

7466 025674 4127725 PAleee MOV sSTACK,SP sRESET STACK 

7067 825700 812737 A@0034 O04470 MOV 834,88TSTNM sSAVE TEST NUMBER 

7968 

7069 425706 004737 a3ar6e JSR PC, @8CLOISK 2SET RI@PHCS1, RP2°RHCS2 

TAMA sP3-RHDS1, PR4°PHERI 

7071 sGIVE RHelf INITIALIZE 

7472 sSETUP UNIT NUBER 

7973 

7074 THE FOLLOWING CLEARS ARE TO INITIALIZE TEST FROM CYLINDER @ 
7A75 025712 805037 426012 CLR @01$012 sSTART WITH SECTOR/TRACK « @ 
7076 025716 AA5837 A2673" CLP @22S8010 sSTART WITH DATA = @ 

7977 €25722 a95037 4260040 CLP @83$6 sSTART WITH @ FOR COMMAND 

7478 

7°79 25726 012737 @A0@°23 901172 ; “OV #19,,@9STMP! 219 TRACKS TO BE WRITTEN 

708¢ 

7He1 :THIS GFTS THE HEADS TO CYLINDER @ 

7082 ; 

7°83 025734 4737 930140 JSP PC, @eCHECKT sCHFCK NVA,RDY,“4OL,OPR,DORY,VV 
7984 

7A8S 825743 813777 04472 154212 MOV @ORP4VEC,@RPVEC SET RPO@ VECTOR ADDRESS 

TARE sTO °TIME1® IF PeCLOCK IS PRESENT 
7067 20R TO *TIME2° IF PeCLOCK IS NOT PRESENT 
7988 s°TIME® WILL ONLY SAVE 

7Aa9 sCUPRENT CYLINDER ADDPESS 

7290 sAND LOOK AHEAD REGISTERS 

7691 

7992 #25746 013746 002314 @PRECALI,°(SP) 3GET READY TO MOVE COMMAND 

74093 ®25752 052716 0600101 eGOLIF, (SP) 3:GET READY TO SFT GO AND 

7094 ENABLE INTERRUPT 

7095 925756 412677 154216 ; (SP), @PRHCS1 G0 WITH 

7096 36 IN RHCS1 FOR RECALIBRATE 
7097 sWITH INTERRUPT FNABLED 

7098 

7299 825762 104428 WAT sWAIT FOR DRY BIT TO SET 

7100 025764 0602214 RHDS1 s¥AIT FOR RHDS! REGISTER 

7101 025766 000209 DRY sWAIT FOR DRY BIT IN RHNS1 REGISTER 
71092 025770 0696590 25000, sALLOW 250090 MICRO SECONDS 
7143 25772 069659 25°00. sOPY MUST SFT BETWEEN 

7104 200 AND 500000 MICRO SECONDS 
7145 

7106 25774 0904737 4830760 JSR PC, @sCLDISK sSET RieRHCS1, R2-RHCS2 

7107 sR3-RHDS1, R4-RHERI 

7108 sGIVE RH-1] INITIALIZE 

7109 sSETUP UNIT NUBER 

7110 

7ii1 sFILL WRITE FROM BUFFER WITH HEADER 

7112 626000 : 

7113 








MAINDEC©11°DERPV=B 
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7113 
7115 
7116 
7117 
7118 
7119 
7129 
7121 
7122 
7123 
7124 
, VARs 
7126 
7127 
7128 
7129 
7130 
7131 
7132 
7133 
7134 
7135 
7136 
7137 
7138 
7139 
7140 
7141 
7142 
7143 
7144 
7145 
7146 
7147 
7148 
7149 
71590 
7151 
7152 
7153 
7154 
7155 
7156 
7157 
7158 
7159 
7169 
7161 
7162 
7163 
7164 
7165 
7166 
7167 
7168 
7169 


— rr I cL I 


020000 
02604 
426906 
026010 
026012 
076014 
@26016 


026020 
26020 
026024 
026026 
026030 


026932 
026032 
426436 
02604¢ 
026941 
026042 
026044 


026046 
926050 


426052 


426960 


026966 
926072 


#26076 


T34 


004037 
902354 
000004 
910000 
900000 
900000 
800000 


004037 
002364 
000400 
008900 


004037 
9800000 
000 
Goa 
177374 
002354 


902332 


004737 


013777 


013746 
052716 


012077 


MACY11 27(732) 


027704 


027730 


032024 


094472 


002332 
000101 


154076 


154072 


18eFER<76 16222 PAGE 134 SEQ 0158 
HEAD SELECTION TEST 


JSR PO, @eFLHFAD sSAVE HEADER DATA IN WRFROM 
WRFROM sLOCATION WHERE SAVED 

4 sNUMBFR OF WORDS SAVED 
12000 sFIRST DATA wORD 

<A8400>!10 sSECOND DATA WORD 

a sTHIRD DATA WORD 

@ sFOURTH DATA WORD 


sFILL WRITE FROM BUFFER WITH DATA 


JSR PO, @8CLAREA :CLEAR 256, WORDS, FROM WRFROM S10 

WRFPROMe190 PSTARTING FROM WRFROMS1A 

256. 3256, WORDS 

<0 ,#2000>1<0, 840310 sFILL WITH <€#,#2000>1<0,840>10 


sTHE WRITE HEADER AND DATA COMMAND WILL BE FILLFD 


JSR RA, @8RUN sSETUP TO RUN FOR DATA COMMAND 
@ sCYLINDER @ 
® sSECTOR @ 
0 sTRACK 9 
©256.°4 sWOPD COUNT (DATA)#256.¢ 
34 HEADER WORDS 
WRFROM sPUS ADDPESS 


2STARTING ADDRESS OF DATA 

sBUFFER = WRFROM 
@ :D0 NOT INHIBIT BUS ADDRESS INCREMENT 
FMT22 316 BITS PER WORD FORMAT 

300 NOT INHIBIT ECC CORRECTION 

300 NOT INHIBIT HEADER COMPARE 
WRIFOR sGET READY TO DO A WRIFOR 

sWRITE HEADER AND DATA WITH 62 IN RHCS1i 


JSR PC, @8CHECKT sCHECK DVA,ROY,.MOL,DPP,DRY,VV 


MOV @eRP4VEC,@RPVEC ;SET RP®4 VECTOR ADORFSS 
3TO °TIME1® IF PeCLOCK IS PRESENT 
:OR TO °TIME2° IF PeCLOCK IS NOT PRESENT 
s°TIME’ WILL ONLY SAVE 
sCURRENT CYLINDER ADDRESS 
sAND LOOK AHEAD REGISTERS 


MOV @SWRIFOR,-(SP) 3sGET READY TO MOVE COMMAND 

BIS sGO!LTE, (SP) :GET READY TO SET GO AND 
sENABLE INTERRUPT 

MOV (SP)¢,@RHCS1 3GO WITH 


962 IN RHCS1 FOR WRITE HEADER AND DATA 
sWITH INTERRUPT ENABLED 


sONE REVOLUTION = 16670 MICRO SEC. ONE SECTOR = 760 
sMICRO SEC, MAX TIME ALLOWED = ONE REVOLUTION ¢ HEAD 


MAINDEC $11 -DERPVoR MACY11 27(732) 19eFEB°76 16:22 PAGF 131 SEQ 0159 


DFRPVE.P11 T34 HEAD SELECTION TFST 
7170 sSWITCH + 2 SECTORS, MIN TIME ALLOWED = SECTOR (FIPST CASE) 
7173 :IF THERE IS A FAILURE HERE HALT PROGRAM AFTEP FRROR WITH 
7172 sSWITCH 15 AND SEE CURRENT CYLINDER REGISTEP TO DETERMINE 
7173 sWHAT CYLINDER IS FAILING 
7174 
7175 
7176 @20102 104420 WAT sWAIT FOR RDY BIT TO SET 
7177 026104 002172 RHCS1 sWAIT FOR RHCS{ REGISTER 
7178 026196 029200 RDY ;WAIT FOR ROY BIT IN RHCS1 REGISTER 
7179 626110 063162 1650, sALLOW 16500 MICRO SECONDS 
7180 626112 61572 890, sRDY MUST SET BETWEEN 
7181 27690 AND 25400 MICRO SECONDS 
7182 
7183 sNOW SECTOR @ OF ONE TRACK HAS BEEN WRITTEN CHECK COMPOSIT 
7184 sERROR BIT TO BE SUPE NO ERRORS HAPPENED 
7185 
7186 sSAVE REGISTERS IN SAVE TABLE 
7187 @26114 094737 031764 JSR PC, @sPUTREG 
7188 
7189 0626120 0632737 @40002 602272 BIT sERR,@8DS1 sANY DISK ERRORS 
7190 026126 #01004 BNE 98 sBRANCH IF YES 
7191 026130 ©@32737 @40700 0022590 BIT eTRE,@8CS1 sANY PH ERRORS 
7192 626136 401401 BEO 4s sBRANCH IF NO 
7193 
7194 626140 104066 983 EPROR 66 sSOME ERRORS OCCURRED 
7195 sWHILE DOING WRITE HEADER 
7196 sAND DATA 
7197 
7198 :THE FOLLOWING 3 ADDS SETS UP FOR NEXT TRACK WRITING 
7199 
7200 826142 462737 @90400 026012 48:3 ADD 0400,0016412 sNEXT TRACK FOR HEADER 
7201 026150 062737 9600040 062603¢ ADD 040,0828410 sNEXT TRACK FOR DATA 
7202 026156 962737 920400 426040 ADD 8400, 093846 sNEXT TRACK FOR COMMAND 
7203 
7204 026164 005337 91172 DEC @eSTMP! sCOUNT 19 TRACKS 
7295 26170 001303 BNE is 
7206 
7207 sTHE FOLLOWING CLEARS SETS UP FOR PEAD HEADER AND DATA 
7208 26172 995037 826252 CLR @8SST3412 sSTART WITH SECTOR/TRACK = 6 
7209 26176 905037 626270 CLP @8SST4+10 sSTART WITH DATA 2 @ 
7219 026202 905037 026300 CLR @8SST5S+6 sSTART WITH @ FOR COMMAND 
7211 
7212 
7213 026206 004737 0639060 JSR PC, @sCLDISK sSET PieRHCS1, R2-RHCS2 
7214 tR3@RHDS1, R4e-RHERI 
7215 sGIVE RH-11 INITIALIZE 
7216 sSETUP UNIT NUBER 
7217 sSET UP FOR READ HEADER AND DATA 
7218 626212 012737 0009023 091172 SSTi: MOV 019,,@86TMP! 219 TRACKS TO BF READ 
7219 
7220 sFILL READ INTO BUFFER WITH ALL ONES 
7221 026220 SST2:s 
7222 026220 004037 427730 JSR RA, @sCLAREA sCLEAP 260, WORDS, FROM REINTO 
7223 026224 003429 REINTO sSTARTING FROM REINTO 
7224 0626226 000404 260, 3260, WORDS 
7225 026230 177777 #1 sFILL WITH @1 


2 Ee 
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7226 
7227 026232 013737 426220 @ar1iie MOV @8SST2,@8SLPEPR ;SET LOOP POINT 

7228 

7229 :FILL WRITF FROM BUFFER WITH EXPECTED HEADER 

7230 026240 SST33 

7231 

7232 326240 904037 027704 JSR P?, @8FLHEAD :SAVE HFADER DATA IN WRFKOM 

7233 026244 002354 wPFROM :LOCATION WHERE SAVFD 

7234 926246 900004 4 :NUMBER OF WORDS SAVED 

7235 92625¢ 910000 19000 :FIPST DATA WORD 

7236 026252 9990000 a :SECOND DATA wORD 

7237 026254 e000 0 :THIPO MATA WORD 

7238 026756 s0R000 a sFOURTH DATA woRE 

7239 

7249 :FTLL WRITE FROM BUFFER WITH FXPFCTFD DATA 

7241 926260 SST4: 

7242 826260 004937 027730 JSR PA, @eCLAREA :CLFAR 256, WORDS, FROM WRFROM+<402> 
7243 26264 902364 WRFPOMS<402> :STARTING FROM WRFROMe<402> 
7244 026266 900400 256, 1256. WORDS 

7245 026270 aaenee <A, #2000>!<Re40>!10 1FILL WITH <@,02000>!<9040>10 
7246 

7247 

7248 1FILL COMMAND FOR READ HEADER AND DATA 

7249 26272 SSTS: 

7250 

7251 926272 004037 032024 JSR R9, @8PUN :SETUP TO RUN FOR DATA COMMAND 

7252 026276 aeeo00 a sCYLINDER @ 

7253 926300 000 eBYTE 0 :SECTOR 0 

7254 26301 aoe eBYTE @ ’ :TRACK @ 

7255 026302 177374 -256.°4 sWORD COUNT (DATA)#256.+¢ 

7256 34 HEADER WORDS 

7257 026394 903420 REINTO sBUS ADDRESS 

7258 ?STARTING ADDRESS OF DATA 

7259 ;BUFFER © REINTO 

7260 026306 9090000 e 300 NOT INHIAIT BUS ADDRESS INCREMENT 
7201 926319 014000 ECIIFMT22 116 BITS PEP WORD FORMAT 

7262 sINHIBIT ECC CORRECTION 

7263 :D0 NOT INHIBIT READER COMPARE 

7264 26312 002336 REFOR 1GET READY TO DO A REFOR 

7265 ¢READ HEADER AND DATA WITH 72 IN RHCS! 
7266 

7267 : 

7268 26314 994737 @30140 JSR PC, @eCHECKT :CHECY DVA,RDY,“OL,DPR,DRY, VV 

7269 

7270 

7271 02632@ 013777 @94472 153632 Mov @8°P4VEC,@RPVEC :SET RPO4 VECTOR ADDRESS 

7272 :TO °TIMEL® IF PeCLOCK IS PRESENT 

7273 sOR TO *TIME2® IF PeCLOCK IS NOT PRESENT 
7274 :°TIME® WILL ONLY SAVE 
7275 sCURRENT CYLINDER ADDRESS } 
7276 sANG LOOK AHEAD REGISTERS 

7277 

7278 

7279 026326 013746 002336 Mov @OREFOR,-(SP)  3GET READY TO MOVE COMMAND 

7289 026332 052716 990101 BIS 8GOLTE, (SP) :GET READY TO SET GO AND 


7261 sENABLE INTERRUPT 
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7282 
7283 
7284 
7285 
7286 
7287 
7288 
7789 
7290 
7291 
7292 
7293 
72794 
7295 
71296 
7297 
729R 
7299 
7300 
7301 
7302 
7303 
7304 
7305 
7306 
7307 
7308 
7309 
7310 
7311 
7312 
7313 
7314 
7315 
7316 
7317 
7318 
7319 
7320 
7371 
7322 
7323 
7324 
7325 
7326 
7327 
7328 
7329 
7330 
7331 
7332 
7333 
7334 
7335 
7336 
7337 


426336 


026342 
426344 
026346 
026350 
026352 


326354 


6263690 
426366 
026370 
026376 


026400 


926402 


026402 
926406 
(26419 
026412 
926414 
426416 


026429 
026422 


T34 
012677 


104420 
002172 
00200 
003162 
401572 


004737 


032737 
OA1004 
032737 
091401 


194966 


004937 
042354 
093420 
090404 
926420 
926424 


104067 
08207 
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153630 


031764 
#40008 002272 


40700 802750 


032970 


926424 062737 00400 26252 


1R®eFEBR@76H 816272 PAGF 133 
HEAD SELECTION TEST 


MoV (SP)6,@PHCS! :G0 WITH 
172 IN RHCS{ FOR PEAD DATA 
WITH TYTERRUPT ENABLED 


WAT sWAIT FOP ROY BIT TO SET 

RHCS1 sWAIT FOR RHCS1 REGISTER 

PDY s4AIT FOR RDY BIT IN RHCS1 REGISTER 
1654, sALLOW 16500 “ICRO SECONDS 

890, sPDY MUST SET BETWEEN 


27600 AND 2549@ MICRO SECONDS 


sNOW SECTOR @ OF ONE TRACK HAS BEEN READ CHECK COMPOSIT 
sERROP RIT TO BE SURE NO EFROF HAPPENED 


:SAVE PFGISTERS IN SAVE TABLE 


JSR PC, @SPUTREG 

BIT @EPR,@80S1 sANY DISK EPRORS 

BNE 198 sBRANCH IF YES 

BIT eTRE,@8CSi sANY RH ERRORS 

AFQ 118 sBRANCH IF NO 

FRROR 66 sSOME ERRORS OCCURRED 


sWHILE DOING READ 
sHEADFR AND DATA 


sNOW THF READ DATA WILL BE COMPAPFD DATA IN EACH SECTOR 
215 UNIQUE IF PROGRAM IS HALTED ON ERROR THEN LOOK AT 
sPHDST TO GET WHAT TRACK ITS IN ERROP, LOOKING AT THE DATA 
s8ITS NO 4,5,6,7,-8 TN GOON DATA ALSO GIVES TRACK wuneee 
:IN GOOD DATA ALSO GIVES TRACK NUMBFR 


JSR RO, @6COMPAR sCOYPARE TWO BLOCKS OF MEMORY 
WRFPROM sGOOD DATA STARTS FROM WRFROM 
REINTO sTEST DATA STARTS FROM REINTO 

260. 2260, WORDS TO BF COMPARED 

128 sRETUPN TO 128 ON ERROR 

138 sRETUPN TO 138 ON NO FRROP 


sBITS 4,5,6,7.8 
ERROP 67 sREAD HEADER AND PATA 
RTS ec s ERROR 
sHEAD SELECTION ERROR 
sDATA RFAD GIVES NATUPE 
3O0F ERROR 
sEXCEPT FOR THE 
2:FOUR HEADER WOPDS 
sTHE BITS 4,5,6,7-8 
sGIVE THE TPACK NUMBER 


sNOW INCPEYENT TO READ NEXT TRACK 
ADD 0400,@8SST3¢12  sNEXT TRACK FOR HEADER 
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7338 
7339 
7340 
7341 
7342 
7343 
7344 
7345 
7346 
7347 
7348 
7349 
7350 
7351 
735? 
7353 
7354 
7355 
7356 
7357 
7358 
7359 
1360 
7361 
736? 
7363 
7364 
7365 
7366 
7367 
7368 
7369 
7370 
7371 
7372 
7373 
7374 
7375 
7376 
7377 
7378 
7379 
7360 
7381 
7382 
7383 
7384 
7385 
7386 
7387 
7388 
73A89 
71390 
7391 
7392 
7393 


ec LLL 


#26432 
026440 


876446 
076452 


0264154 


026456 


#26462 
026464 
726470 


26476 


0265¢2 
926510 
@26514 


026520 


026576 
926532 


026536 


T34 


062737 
062737 


O95 237 
AAT AAI 


0904192 


000137 


POADA4S 
012796 
012737 


904737 


012737 
095037 
005337 


013777 


013746 
52716 


012677 
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@AGR40 
AGA4LOR 


071172 


026720 


610000 
20616 
@26624 


004472 


002314 
000101 


153430 


026270 
(26300 


ee4are 


026576 


153432 


1AeFEPF S76 16:22 PAGE 134 SEO 9162 
HEA SELECTION TEST 


arp 0470, 80SST441A gNEXT TRACK FOR DATA 
ADD 8400,@8SST546 sNEXT TRACK FOR COMMAND 
DFC @sSTMP) sCOUNT 19 TRACKS 
BNF 5$ 
KR TST35 3TO NEXT TEST 
5$: JMP @eSsT2 : JUMP BACK 
3 SSSSCSSSSSSSSSHSSSSSHSSSSSSSSSSHSHSHSSHSSSSHSSSSHSSSHSHSSSHHSSSHSOCECEGES 
2@TFST 35 DIFFERENCE LINES 
36 A WRITE HEADER AND DATA WILt RE DONF ON ALL CYLINDERS 
38 ue TO 256 ON SECTOR ZEPO, TRACK ZERO, THE DATA WILL BE THE 
3% CYLINDER NUMBER 
3@ 
28 THEN A RECALIBRATE AND READ HEADER AND DATA WILL BE DONE 
36 ON CYLINDERS 051622409 .160322%42128,256, 
3@ 
38 DATA WILL BE CHECKED 
3° ON AN FRROR LOOPING WILL BE DONE ON 
38 READ ONLY 
1) 


FSOSHSSSSSHSSSSSSOCSSHESHSHOHSSSSHFOSCHSSSHSSOSHOSSHSSSSSSOCHSOCOS 
TST35: SCOPE 


MOV @STACK,SP sRPESFET STACK 
MOV 835,@e8TSTNM sSAVE TEST NUMBER 
JSR PC, @eCLOISK sSET RieRHCS1, R2-RHCS2 


sR3eRHDS1, R4-RHER) 
sGIVE RHej1 INITIALIZE 
sSETUP UNIT NUBER 


:THF FOLLOWING MOVES ARF TO INITIALIZE TEST FROM CYLIMDER 


3 ZERO 

3SET UP TO INITTALIZE TEST FROM CYLINDER @, TRACK @, 
sSECTOR @ 

“OV 810900,@816010 sCYLINDER HEADER DATA 

CLP 0826410 DATA 

CLR 83804 sCYLINDER COMMAND RHCA 


:THIS IS TO GET THE HEADS TO CYLINDER ZERO 
MOV @OPP4VEC,@RPVEC :SET RPO4 VECTOR ADDRESS 
3TO °TIME1® IF PeCLOCK IS PRESENT 
20OR TO “TIME2° IF PeCLOCK IS NOT PRESENT 
s°TIME® WILL ONLY SAVE 
sCURRENT CYLINDER ADDRESS 
sAND LOOK AHEAD PEGISTERS 


“OV @@RECALI,°(5P) sGET READY TO MOVE COMMAND 

BIS eGOLIE,(SP) sGET READY TO SET GO AND 
sENABLE INTERRUPT 

MOV (SP)¢,@PHCS1 :GO WITH 


96 IN PHCS1 FOR RECALIBRATE 
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7394 

7395 

7396 026542 104420 
7397) €26544 002214 
739R 026546 #002900 
7399 026550 60659 
74vA% 826552 869654 
7401 

7492 0260554 12737 
7403 

7404 

7495 @26562 004737 
7406 

7407 

7478 

7409 

7418 

7411 @26566 

7412 

7413 826566 004037 
7414 @26572 #02354 
7415 026574 aneAoa4d 
7416 26576 9190000 
7417 #26690 3290000 
7418 426602 agon0a 
7419 26604 990000 
7420 

7421 

7422 A7?6606 

7423 0976606 404737 
7424 026612 002364 
7425 026614 900400 
7426 26616 98292700 
7427 

7428 

7429 

7430 026627 

7431 

7432 926620 64037 
7433 926624 0860000 
7434 026626 00a 
7435 26627 a0a 
7436 @26630 177374 
7437 

7438 ©2663? 0602354 
7439 

7440 

7441 026634 aganee 
7442 #620636 910004 
7443 

7444 

7445 @26640 002332 
7446 

7447 

744" 

7449 26642 04737 


gg... iii aml 
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DIFFERENCE LINES 


000401 


30060 


027704 


077730 


32024 


030140 


901172 


{Ref FRO 


283 


3$3 


BYTE 
BYTE 


WAT 
RPHDS1 
DRY 
25000, 
25000. 


“OV 


JSR 


14:22 PAGE 135 


€257,,@8STMP! 


PC, @sCLOISK 


sWITH INTERRUPT ENABLFD 


sWAIT FOR DPY BIT TO SET 

;WATT FOR RHDS1 REGISTER 

:WAIT FOR DPY BIT IN PHDS! REGISTER 
s ALLOW 250000 MICRO SECONDS 

sORY MUST SET BETWEEN 

:9@ AND 590000 MICRO SECONDS 

2257 CYLINDERS 


sSET RiePHCS1, R2-RHCS2 
sR3RHDS1, P4-RHEPI 
sGIVE RHell INITIALIZE 
sSFTUP UNTT NUBER 


sFILL WPITF FPOM BUFFER WITH HEADER 


JSR 
WRFROM 
4 
19000 
a 

Qa 

a 


RY, @eFLHEAD 


sSAVE HEADER DATA IN WPRFROM 
sLOCATION WHERE SAVED 
sNUMBER OF WORDS SAVED 
sFIRST DATA @ORD 

sSECOND DATA WORD 

sTHIRD DATA WORD 

sFOURTH DATA WORD 


sFILL WRITE FROM RUFFFR WITH DATA 


JSR RO, @sCLAREA 
WRFROMS10 

256. 

a 


sCLEAR 256, WORDS, FROM WRFROMO1@ 
STARTING FROM WRFROMe10 

3256. WORDS 

sFILL WITH @ 


:THE WRITE HEADER AND DATA COMMAND WILL BF FILLED 


JSR 

@ 

() 

0 
°256.°4 


WRFROM 


Q 
FMT22 


WRIFOR 


JSP 


RO, @8RUN 


sSETUP TO RUN FOR DATA COMMAND 
sCYLINDER @ 

sSECTOR #6 

sTRACK @ 


sWORD COUNT (DATA)#8256.¢ 


34 HEADER WORDS 

sBUS ADDRESS 

sSTARTING ADDRESS OF DATA 

sBUFFER s WRFROM 

:D0 NOT INHIBIT BUS ADDRESS INCREMENT 
316 BITS PER WORD FORMAT 

:DO0 NOT INHIBIT ECC CORRECTION 

200 NOT INHTAIT HEADER COMPARE 

sGET READY TO DO A WRIFOR 


saPITE HEADFR AND DATA WITH 6? IN RHCS1 


PC, @8CHECKT 


sCHECK DVA,ROY,MOL,DPR,DRY,VV 


MAINDFCe11-DERPV=B MACY11 27(732) 1°°FEB276 16:27 PAGE 136 SEQ 0164 
DERPVA, P11 T35 DIFFFPENCE LINES 


7454 

7451 

7452 976646 013777 OF74472 153304 “OV @EPP4VEC,@RPVFC :SET RP@4 VECTOR ADDRESS 

7453 2TO °TIME1’ IF PeCLOCK IS PRESENT 
7454 s9OR TO °TIMF2° IF PeCLOCK IS NOT PRESFNT 
7455 :°TIMF® wILL ONLY SAVE 

7456 sCUPRENT CYLINDER ADDRESS 

7457 sAND LOOF AHEAD REGISTERS 

7458 

7459 

7460 026654 13746 002332 MOV @eVPIFOR,°(SP) sGET PEADY TO MOVE COMMAND 

7461 026660 652716 990101 RIS SsGOLIE, (SP) sGET PEADY TO SET GO AND 

7462 sFNABLE INTERRUPT 

7463 626664 012677 153302 MOV (SP)¢,@RHCS!I 360 WITH 

7464 762 IN RHCS1 FOR WRITE HEADER AND DATA 
7465 ~~. s¥ITH INTERRUPT ENABLED 

71466 

7467 sONF REVOLUTION s& 16670 MICRO SECONDS, ONE SECTOR = 760 
7468 s¥ICRO SECONDS, ONE SFEK =& 7000 MICRO SECONDS, MAX 

74169 sTIME = ONE REVOLUTION @ SEFK # 2 SECTORS, “IN TIME s 
747¢ 2ONE SECTOR 

7471 

7472 

7473 «@26670 104420 WAT sWAIT FOR RDY BIT TO SET 

7474 626672 602172 RHCS1 sWAIT FOR RHCS1 REGISTER 

7475 26674 ane2na ROY sWAIT FOR RDY BIT IN RHCS1 REGISTER 
7476 026676 #02354 1260, sALLOW 1260@ MICRO SECONDS 

7477 26709 002354 1264, sRDY MUST SET RETWEEN 

7478 39@ AND 25200 MICRO SECONDS 
7479 

7480 sNOW ONE SECTOR WRITE ITS COMPLETE CHANGES WILL BE MADF 
7481 :FOR THE NEXT SECTOR THEN THE ABOVE WILL BE REPEATED 
7482 +TILL CYLINDER 256 IS RFACHED 

7483 26702 @@5237 026576 Inc @018010 sCYLINDER HEADER DATA 

7484 26706 005237 026616 Inc 0628410 sDATA 

7485 026712 805237 26624 INC @03S44 sCYLINDER COMMAND (RHCA) 

7486 026716 805337 691172 nec @esTMP! sCOUNT DOWN FOR 256 

7487 26722 001321 BNE is sBRANCH IF 256 NOT DOWE 

7488 

7489 sNOW ALL 256 CYLINDERS HAVE CYLINDER NUMBER WRITTEN 
7490 sAS DATA ON SECTOP @, TRACK @, NOW RECALIARATE FOLLOWED 
7491 sBY READ HEADER AND DATA THEN CHECK WILL BE DONE ON 
7492 SCYLINDER @5142¢4.8,16.32.64.12%,256, AND 0 

7493 

7494 026724 013737 626754 0011190 MOV 064¢,866LPERR sLOOP ON ERROR 

7495 926732 05437 601172 CLR @esTMP! :CYLINDER COUNTER 

7496 

7497 sSETUP FOR CYLINDER 0 

7498 26736 012737 810700 927036 MOV 819900,2956¢19 sCYLINDER HEADER (DATA) 

7499 026744 605937 627056 CLR 0268410 sDATA 

750° 826759 005037 027064 CLR @07804 sCYLINDER COMMAND (RHCA) 

7501 026754 4$3 

7502 

75093 026754 804737 @30060 JSR PC, @sCLDISK sSET RieRHCS1, R2-RHCS2 

7504 sR3-RHDS1, R4-RHER} 


7505 sGIVE RH-i1 INITIALIZE 
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756 

7507 

750R 0876769 013777 
7809 

7514 

7811 

7512 

7513 

7514 

7515 

7516 026766 013746 
7517 026772 52716 
7518 

7519 626776 012677 
75293 

7521 

7522 

7523 

7574 827002 10442a 
7525 027004 002214 
7526 @27096 8200200 
7577 A27TA1A 60654 
7528 027012 #60658 
7529 

7530 

7531 

7532 027014 094037 
7533 @27A20 0603429 
7534 827022 a90404 
7835 @27024 177777 
7536 

7537 

7538 

7539 027926 

7540 

7541 @27926 004037 
7542 027032 #02354 
7543 427034 000004 
7544 027936 0810000 
7545 @27040 #870000 
7546 082779042 2800000 
7547 627044 000200 
7548 927046 

7549 027946 094037 
7559 @27052 92364 
7551 027954 990400 
7552 027056 #900200 
7553 

7554 

7555 

7556 027060 

7557 

7558 @274662 904937 
7559 @27064 000000 
7560 027966 000 
7561 0270967 000 


MACY11 27(732) 
DIFFERENCE LINES 


@04472 153172 


092314 
araiel 


153170 


027730 


027704 


027730 


032024 


1ReFFR©76 16222 PAGF 137 


783 


MOV Q@GPP4VFC,@RPVEC 


MOV @SRECALTI,=(SP) 
BIS sGOLTE, (SP) 


MOV (SP)¢,@RHCS1 


WAT 
RHDS1 
DRY 
250080, 
25000, 


SEQ @165 


SETUP UNIT REP 


:SET RPG VECTOR ADDRESS 

:TO °TIME1® IF PeCLOCK IS PRESENT 

2OR TO °TIMF2° IF PeCLOCK IS NOT PRESENT 
:°TIMF*® WIL ONLY SAVF 

:CURRENT CYLINDER ADDPESS 

:AND LOOK AHEAD PEGISTERS 


3:GET READY TO MOVE COMMAND 

:GFT PEADY TO SET GO AND 

PtENABLE INTERRUPT 

3GO WITH i ae 
76 IN RHCS1 FOR RECALIARATE 
:WITH INTERRUPT ENABLED 


sWAIT FOR DRY BIT T9 SET 

:WAIT FOR RHDS1 REGISTER 

sWATT FOR DPY BIT IN PHDS1 REGISTER 
sALLOW 250000 MICRO SECONDS 

sORY “UST SET RETWEEN 

340 AND $0@900 “ICRO SECONDS 


sCLEAP PEAD INTO BUFFER WITH ALL ONES 


JSR RO, @eCLAREA 
REINTO 

260, 

°1 


sCLFAR 260, WORDS, FROM REINTO 
sSTARTING FROM REINTO 

3266, WORDS 

sFILL WITH 4 


sFILL WRITE FROM BUFFER WITH EXPECTED HEADER 


JSR PA, @@FLHEAD 
WRFROM 


4 
19900 
a 
0 
) 


JSR PA, @sCLAREA 
WRFROMe1@ 

256. 

0 


sSAVE HEADER DATA IN WRFROM 
sLOCATION WHERE SAVED 
sNUMBEP OF WORDS SAVED 
sFIPST DATA WORD 

sSECOND DATA WORD 

sTHIRD DATA WORD 

sFOURTH DATA WORD 


sCLEAR 256, WORDS, FROM WRFROMS10 
sSTARTING FROM WRFROMS10 

2256, WORDS 

sFILL WITH @ 


sFILL PEAD HFADER AND DATA COMMAND 


JSR RO, @eRUN 
a 


sSETUP TO RUN FOR DATA COMMAND 
sCYLINDER @ 

sSECTOR @ 

sTRACK @ 
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7562 
7563 
7564 
7565 
7566 
7567 
7568 
7569 
757¢ 
7571 
7572 
7573 
7574 
7575 
71576 
7577 
7578 
7579 
7580 
7581 
7582 
7583 
7584 
7585 
7586 
75867 
7588 
7589 
7590 
7591 
7592 
7593 
7594 
7595 
7596 
7597 
7598 
7599 
7600 
7601 
7602 
7693 
7604 
7605 
7606 
7607 
7608 
7609 
7610 
7611 
7612 
7613 
7614 
7615 
7616 
7617 


Neen eI NNN nnn 


027070 


027072 


027074 
AP7A76 


027100 


027102 


27106 


@27114 
a27120 


027124 


027130 
#2713? 
027134 
427136 
627140 


027142 
027146 
027150 
#27152 
@27154 
027156 


027160 


T35 
1977374 


#03422 


ABABA 
014700 


02336 


004737 


013777 


013746 


waACY11 27(732) 


DIFFERENCE TINES 


030140 


004472 


052716— -000101 


012677 


194420 
092172 
9009200 
096620 
AA6620 


404037 
002354 
003420 
000404 
027160 
027164 


104070 


153042 


032070 


153044 


19eFER©76 16222 PAGE 138 SEQ 0166 


256.24 SWORD COUNT (DATA)#256,¢ 
34 HEADER WORDS 
RFEINTS sBUS ADDRFSS 


sSTARTING APDRESS OF DATA 
sBUFFER = REINTO 
Q 200 NOT INHIBIT BUS ANDPESS INCPEMENT 
ECILFMT22 216 BITS PEP WORD FORMAT 
sINHIBTT ECC CORRECTION 
200 NOT INHIBIT HEADER COMPARE 
REFOR sGET READY TO DO A REFOR 
sREAD HEADER AND DATA WITH 72 IN RHCS! 


JSR PC, @8CHECKT sCHECK DVA,POY,MOL,DPR,ORY,VV 


MOV @SPP4VEC,@RPVFC sSET RP@4 VECTOR ADDRESS 
:TO °“TIME1’ IF PeCLOCK IS PRESENT 
2OR TO °TIMF2° TF PeCLOCK IS NOT PRESENT 
:°TIMF® WILL ONLY SAVE 
sCUPRENT CYLINDER ADDRESS 
2AND LOOK AHEAD REGISTERS 


2ONE SECTOR = 760 MICPO SECONDS, ONE REVOLUTION s 
316670 MICRO SECONDS, MAX SEEK = 52009 MICRO SECONDS 
sMAX TIME & ONE REV ¢ 1 SEEK @ 1 SECTOR 


MOV @eREFOR,-(SP) sGET READY TO MOVE COMMAND 

BIS sGOL1E,(SP) sGET READY TO SET GO AND 
sENABLE INTERRUPT 

MOV (SP)+¢,@RHCS1 3G0 WITH 


372 IN RHCS1 FOR READ DATA 
sWITH INTERRUPT ENABLED 


WAT sWATT FOR RDY BIT TO SET 

RHCS1 sWAIT FOR RHCS1 REGISTER 

RNY ;WATT FOR ROY BIT IN RHCS1 REGISTER 
3472. sALLOW 34720 MICRO SECONDS 

3472. sRDY MUST SET BETWEEN 


29@ AND 69440 MICRO SECONDS 


sCHECK READ WORDS AS ALL READ COMMANDS HAVE BEEN CHECKED 
sDATA EPRORS “AY IMPLY “IMPLIED SEEK" ERRORS 


JSR RA,@sCOMPAR sCOMPARE TWO BLOCKS OF MEMORY 
WRFROM 3GOOD DATA STARTS FROM WRFROM 
REINTO sTEST DATA STARTS FROM REIWNTO 

260, 3260, WORDS TO BE COMPARED 

8s sRETURN TO @$ ON ERROR 

9s sRETURN TO 9$ ON NO ERROR 

ERROR 70 sREAD HEADER AND DATA ERROR 
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7618 
7619 
7620 
7671 
7622 
7623 
7624 
7625 
7676 
7627 
7628 
7629 
7630 
7631 
763? 
7633 
7634 
7635 
7636 
7637 
7638 
7639 
7640 
7641 
7642 
7643 
7644 
7645 
7646 
7647 
7648 
7649 
7650 
7651 
7652 
7653 
7654 
7655 
7656 
7657 
7658 
7659 
71660 
7661 
766? 
7663 
71664 
7665 
7666 
7667 
76608 
7669 
7670 
7671 
7672 
7673 


2 


#27162 


027164 
827179 
@27172 
027176 
027200 
027206 
627210 
027216 
027224 
927230 
27234 
027240 
627246 
027252 
027260 
427262 
027270 
027276 
027302 
027306 


027312 


027312 
927314 
927322 
027330 
027334 


027416 
027419 
027414 


T35 


800207 


005737 
401083 
005237 
00407 
022737 
101421 
063737 
013737 
013746 
052716 
012637 
013737 
000137 
022737 
ap1414 
063737 
012737 
905037 
005037 
000137 


830004 
012767 
012767 
194400 
000425 


013746 
194410 


MACY11 27(732) 


DIFFERENCE LINES 


a01172 
001172 
090400 


001172 
ae1172 
#91172 
010000 
627836 
a01172 
026754 
on1 eee 


91172 
016000 
027056 
027064 
026754 


A00001 
000000 
027336 


994602 


001172 


@91172 
027056 


027064 
001172 


01172 
027036 


151662 
159446 


1feFEBR=76 16222 PAGF 139 SEQ 0167 


PTS Pc sDATA GIVES EXPECTED CYLINDER 


sNOW ONF SECTOR HAS BEEN CFKECKED CHANGES WILL BE MADE 
:TO READ THF NEXT SFCTOP AND THF ABOVE PROGRAM WILL BF 


s REPEATED 
983 TST @ssTMP 318 IT ZERO 
BNE 14§ sRRANCH IF NOT ZERO 
Inc aesTMPi sADD ONE 
BR 116 sPUT ONE IN CYLINDER 
1%$§3 cmp 9256,,@8STMPI 21S IT PASSED 256 CYLINDERS 
BLOS 128 sYES SO GO TO ZERO 
ADD @SSTMP1,@9¢6TMP1 s DOUBLE 
1183 MOV @SSTMP1,@86$010 sDATA 
MOV @eSTMP1,-(SP) 2GET CYLINDER NUMBER 
BIS eFMT22,(SP) sINCLUDE FORMAT BIT 
MOV (SP)¢,0858016 sHEADER DATA (CYLINDER) 
MOV OeST4P1,@97$¢4  sCYLINDER COMMAND (RHCA) 
J¥P ee4as sRETURN TO RECALIBRATE 
1283 CMP 6512.,@8STVPI 3256 DONE 
REQ 138 30UT 
ADD OSSTMP],@eSTMP1 sMOUBLE 
MOV 819000,0858¢10 sCYLINDER HEADER DATA 
CLR 0866010 sDATA 
CLP 067844 sCYLINDFR COMMAND (RHCA) 
JMP ee4s sRETURN TO RECALIBRATE 


136% 


FSSSSSSSSSHSSSSHSSSSCHSSSSHSSHSSHSHSHHSHSSSSHSSSSSSHSEGSSESSHHSOSHSSECHESEOS 
FSSSSSHSSSSSHSHSSHSESSHSHSSHSSSSHSSCSESSSSCSHSSSHSSSSHSSHHSHEFSSSEGCESOS 


s@TEST 36 END OF DRIVE 

7 THIS IS THE END OF TEST FOR OWE DRIVE 

36 IF THERE ARE MORE DRIVES THEN THF PROGRAM 

38 JUMPS TO TEST 5 FOR NEXT DRIVE TEST 

26 END PASS IS REACHED ONLY AFTER ALL DRIVES ARE COMPLETE 


SESSSSHSSSSSSHSSSSSSOHSEHSHSSSSEHSHHOHSOSEHSSSHSSOSHHEHHEOREHEES 
TST363 SCOPE 


MOV ¢1,STIMES 23D0 1 ITERATION 

MOV #0,PS sREINSTATE PS TO @ 

TYPE 00%4 ssTYPE ASCIZ STRING 

BR 648 33GET OVER THE ASCIZ 

33 ASCIZ <15><12>/TOTAL ERRORS ON THIS PASS ON UNIT NO, / 
646: 

MOV @SUNTT,-(SP) :GET READY TO TYPF UNIT NUMBER 

TYPDS 


MAINDEC #11 -DERPV<B 
DERPVA.P11 


71674 
7675 
7676 
7677 
7678 
7679 
7680 
7681 
7682 
7683 
768% 
7685 
7686 
7687 
7668 
7689 
7690 
7691 
7692 
7693 
7694 
7695 
7696 
7697 
7698 
7699 


927416 
27422 


427430 
027430 
027434 
027436 
027442 
027446 
927450 
027454 
027460 
027464 
927470 
027472 
027476 
#27502 
027519 
027514 
027516 
027522 
027526 
@27530 
027532 
027534 
027540 


T36 


1044904 
AGA4A2 


013746 
194410 
095037 
005737 
oa1415 
005067 
6°5237 
1044030 
013746 
194414 
144400 
090137 
012737 
005337 
901413 
013700 
012701 
022109 
601401 
000775 
011137 
@00137 


MACY11 27(732) 


END OF DRIVE 


027424 


071112 


001112 
004612 


151426 
001100 
027664 
091100 


027701 
077502 
177777 
O04604 


004602 
004562 


094602 
047802 


6583 


‘034666 38: 


1ReFEROT4 


33 ,ASCIZ 


MOV 
TYPNS 
CLR 
TST 
REO 
CLR 
Twc 
TYPE 
MOV 
TYPDS 
TYPE 
JMP 
MOV 
DEC 
REQ 
MOV 
MOV 
CMP 
BEO 
BR 
MOV 
JMP 


16:22 PAGF 140 


OGSERTTL,-(SP) 


@ssEPTTL 
@eSFLFECT 

38 

STSTNM 
@esPASs 

eo SENDMG 
@SSPASS,°(SP) 


o SENULL 
@eTsT4 

8-1, @ePRITEY 
@eNOUNTTS 
sEop 
QGUNIT, RO 
sUNITS,Pi 
(P1)e,RE 

28 

16 
(R1),@sUNIT 
e@sTST4é 


s3TYPE ASCTZ STRING 
33GFT OVER THE ASCIZ 


:GET PEADY TO TYPE NUMBFR OF ERRORS 


sCLEAP TOTAL NUMBER OF FRROPS 
tSTARTING FROM 200 7? 

sBPANCH IF YES 

sCLEAPR TEST NUMBER 

s INCREASE PASS COUNT 

:TYPE END PASS @ 


sJUMP TEST 4 

:CLEAR PREVIOUS ITEM NUMBER 
3NO, OF UNITS PRESENT DECREMENT 
sBRANCH IF ALL DRIVES COMPLETE 
sUNIT UNDER TEST 

3s TABLE 

31S THIS UNIT JUST TESTED 
sBRANCH IF YES 

sBRANCH IF NO 

sTHIS IS NEXT UNIT 

3GO0 FOR NEXT TESTS, 


MAINDEC 11 eDERPVeR MACY11 270732) 18eFFRe76 16:27 PAGE 141 SEQ 6169 
DFRPVB P11 736 END OF DRIVE 

71700 FSSSSSSSSHSSSSSSSHSSSHSSHSSHSSHSSSSESHSSSSSSHSSSSSSSSSESHSSHSSHSSSESSESESHES 

7701 

71702 eSATTL END OF PASS ROUTINE 

7703 

7704 s@INCRFMENT THE PASS NUMBER (SPASS) 

7705 S@TYPE “END PASS @XXXXX" (WHERE XXXXX IES A DECIMAL NUMBER) 

7706 s@IF THERES A MONITOR GO TO IT 

7707 s@IF THERE ISN°T JUMP TO TSTI 

7708 

7709 427544 SEOP: 

7710 €27544 800004 SCOPE 

7711 027546 605067 151330 CUR STSTN™ 29ZERO THE TEST NUMBER 

7712 027552 @05067 151426 CLR STIMES 33ZERO THE NUMBER OF ITERATIONS 

7713 27556 005267 151316 INC sPASS ss INCREYENT THE PASS NUMBER 

7714 027562 642767 1990970 151316 prc €1979000,86PASS 2;DON°T ALLOW A NEG, NUMBER 

7715 027570 005327 DEC "PC )¢e 3sLOOP? 

7716 027572 #00001 SEOPCT: WORD 1 

7717 827574 003031 BGT SDOAGN 23 YES 

7718 027576 012737 MOV (PC), @( PC) ssRESTORE COUNTER 

7719 627600 #0aev1 SFNDCTs ,#ORD 1 

71720 27602 027572 SEOPCT 

7721 8627604 104400 027664 TYPE oe SENDMG 23TYPE "END PASS 6° 

7722 827610 816746 151264 MOV SPASS,°e(SP) s3SAVE SPASS FOR TYPEOUT 

7723 27614 044198 TYPDS 33GO TYPEeeDECIMAL ASCII WITH SIGN 

7724 027616 164400 027701 TYPE eSENULL s3TYPE A NULL CHARACTER 

7725 027622 013700 990042 SGET42: MOV 6042,R0 33GET MONITOR ADDRESS 

7726 027626 901414 BEQ sDOAGN :?BRANCH IF NO MONITOR 

7727 627630 622700 0276590 cvp SSENDAD,RO 3391S MONITOR ACTYI? 

7728 027634 01004 BNE SRESET ssNOeeBRANCH (IT’S XXDP) 

7729 627636 022760 177777 9eaee2 cMP @-1,2(RO) 23YESeeIg THIS THE LAST PASS? 

7730 027644 9801001 BNE sENDAD 23NO=eMAKE ANOTHER PASS 

7731 4%Y27646 900005 SPESET: RESET +3:CLEAR THE WORLD 

7732 827650 004719 SENDAD: JSR PC, (RO) 273G0 TO MONITOR 

7733 627652 600240 NOP 23SAVE ROOM 

7734 827654 900240 Nop 33FOR 

7735 027656 600240 NOP ssACTIi1 

7736 €27660 000137 996100 SDOAGNs JMP eeTsTi 2; RETURN 


7737 @27664 605915 47105 20104 SENDMG: ,ASCIZ <15><12>/END PASS @/ 

7738 627672 #40520 051523 #21440 

7739 027700 9a0 

7740 «027701 377 377 000 SENULL: ,BYTE -1,°1,0 s:NULL CHARACTER STRING 
7741 

7742 

7743 

7744 eSPBTTL SUBROUTINES 

7745 

7746 ; 

7747 

7748 

7749 

7750 

7751 

7752 sTHIS FILLS MFYORY WITH GIVEN DATA 

7753 sUSED CHIEFLY FOR HEADER INFORMATION 

7754 sCALL 18 

7755 a JSR RO, @OFLHEAD sFILL HEADER 





MAINDEC of 1 oDFERPVOP 


DERPVA.PII 


71756 
7787 
77528 
7759 
7760 
7761 
7762 
7763 
7764 
7765 
7766 
7707 
7762 
7769 
777A 
7771 
7772 
7773 
7774 
7775 
7776 
7777 
77798 
7779 
77862 
7791 
7782 
7723 
77RKR4 
7785 
71766 
7787 
7788 
7789 
7790 
7791 
7792 
7793 
71794 
7795 
7796 
7797 
7798 
7799 
7890 
7801 
7832 
7803 
7204 
7TRAS 
7806 
7807 
7898 
7ARa9 
7810 
7811 


C2774 
027704 
927706 
#27710 
@27712 


027714 
027716 
027720 
927722 
027724 
027726 


027730 
027730 
027732 
027734 
0277%6 
027740 
027742 
027744 
027746 
027750 
827752 
027754 
027756 
027760 


MACY11 270732) 
SUBROUTINES 


017146 
#10246 
@12901 
0123402 


012021 
075372 
@41375 
412502 
012601 
AaAA20a 


810146 
910246 
010346 
012901 
812002 
A12003 
@10321 
005302 
@01375 
812603 
412602 
012601 
#00200 


YSeFFRS76 16222 PAGE 142 


: Loc . sLOCATION WHEEE SAVED 
’ XN sNUMRER Gr WORDS 
2 xny sDAT& REPFATED X¥N TIMES 
: XD? SDATA PFPFATED YN TIFFS 
$ 
$ 
: 
FLHEADS 
“ov R1,°CSP) s3PU'SH 97 ON STACK 
wOV k2?,¢(SP) t3PI'SH RP? ON STACK 
MOV (RA)¢,PI :P1 HAS ADDRESS OF WHEPF TO SAVE 
vov (kA)¢,R? 3©2 HAS NUMBER OF wORDS 


sNOW FILL PATA 


1s: MOV TRODO,C PIXE sSAVE DATA 
NEC R? sDECREMENT COUNT 
WNF 1s sBRAKCH IF INCOMPLETE 
“ov (SP)o,P?2 23POP STACK INTC R2 
MOV (SP)e,R1 s3POP STACK INTO Ri 
PTS Ra 


sTHIS CLEARS ANY BLOCK CF MEMORY, 
sFILLING IT WITH ANY DATA 


sCALL IS 

3 JSR PA, @e@CLAREA 

3 F FROM 

? N sNUMREP OF WORDS 

: D sPATA TO BE FILLED 


: 
2P1 WILL HAVE STARTING ADDRESS OF BLOCK TO SE FILLED 
3R2 @ILL HAVE NUMBER OF WORDS 


3R3 WILi HAVE DATA 


CLAREAS 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 

1$3 MOV 
DEC 
BNE 
“ov 
MOV 
MOY 
PTS 


R1,°{SP) 
P?,°¢(SP) 
R3,°(SP) 
(FRO)e,R! 
(PO)e,R2 
(RA)o,R3 
P3,(R1)¢ 
R? 

is 

(SP)¢,R3 
(SP)¢,R2 
(SP)o,R1 
ka 


:3PUSH P41 OW STACK 
#3;PUS4 RZ ON STACK 
33P'7SH #3 ON STACK 
FROM 

sNUMBER 

sPaTA 

“OVE DATA 

sCOUNT 

sBRANCH IF NOT COMPLLTE 
73POP STACK INTO RY 
27POP STACK INTO R2 
s9POP STACK INTO Ri 
sRETURN TO MAIN PROGRAM 


SED 0170 


MAINDEC #11 -DERPV=B MACY11 27(732) 
DERPVR,P11 SUBROUTINES 

7812 

7813 

7R14 

7R15 

7816 

7817 

78186 

7819 

7820 

7821 827762 

7822 827762 010146 

7823 27764 010245 

7824 27766 012001 

7825 @27770 012002 

7826 827772 162701 092164 

7827 @27776 810261 004476 

7828 @30902 012602 

7R29 030004 612601 

72838 A38996 900200 

7831 

7832 

7833 


{ReFER“ 76 


16:22 PAGE 143 


sTHIS TES A SUBROUTINE TO FILL SAVED RFEGTSTER LOCATION 
sWITH GIVEN VALUE 


sCALL IS 
3 JSR 


3 
? n 
i 


FILLRF: 
MOV 
“OV 
MOV 
MoV 
SUB 
“OV 
MOV 
MOV 
PTS 


RHXX 


RO, ASF ILLRE 


sREGISTER NAME 


sDATA 


Pi,°(SP) 
R2,°C(SP) 
CRA)O,R1 
(RO)o,R2 
@PHWC,RI1 
R2,SAVEPE(R1) 
(SP)¢,R2 
(SP)o,R1 

RA 


PUSH Ri ON STACK 

ssPUSH R2 ON STACK 

sADDRESS OF ADDRESS OF REGISTER 
sDATA 

s 0F SET 

sDATA IS MOVED IN 

s3POP STACK INTO R2 

¢3:PCe STAC® INTO Ri 

sRETURN TO MAIN PROGRAM 


SEQ #171 


nme aS... 00 --... 


MAINDEC*11-DERPV=B 
DERPVB,.P11 


7934 
7835 
7236 
7837 
7838 
7R39 
7640 
7841 
7R42 
7843 
7844 
7845 
7846 
7R47 
7R4e8 
7849 
7850 
7851 
7852 
7853 
7854 
7855 
7856 
7257 
7858 
7859 


O3PA10 
@30014 
030020 


930030 


012077 
@12077 
013777 


000200 


012077 


MACY11 27(732) 
SUBROUTINES 


15217¢ 
152156 
002322 


7860 030034 013777 992340 


7861 


030942 900200 


152144 


152130 


1ReFFBRo76 


16:22 PAGE 144 


:THIS SUBROUTINE SETS UP FOR SFARCH 


sCALL IS 

3 JSP 

: c 

:.BYTE § 

s.BYTE T 

SRCHs MOV 
MOV 
MOV 
PTS 


P?,@eSRCH 
sCYLINDER 
:SECTOR 
s TRACK 


(PR@)*,@RHCA SET DESIRED CYLINDER ANDRESS 
(RE)+,@RHDST :SET DESIPED SECTOR/TRACK ADDRESS 
@SSERCH,@RHCS1 ;GET PEADY FOR SFARCH 

sWITH 30 IN RHCS! 
RO 


sTHIS SUBROUTINE SETS UP FOR SEEK COMMANDS 


sCALL IS 
3 JSR 
3 c 


SEFKCY: MOV 
MOV 
RTS 


PO, @8SEFKCY 
sCYLINDER 


(RA)¢,@RHCA sSET DESIRED CYLINDER ADDRESS 
@SSEECOM,@RHCS1 sMOV 4 INTO RHCS1 
RA sRETURN TO MAIN PROGRAM 


SEQ #172 


MAINDEC#11°DERPV<B MACY11 27(732) 18eFEB°76 16:22 PAGE 145 SEQ 0173 
DERPVB.P11 SUBROUTINES 


786? 

7863 s THIS SUBROUTINE SETS UP FOR OFFSFT COMMANDS 

7864 sCALL IS 

7865 : JSR RO, @RO0FSFT 

TREE 2 0 :™ICRO INCHES OFSET 

7867 : 

7268 030944 52077 152132 OFFSET: AIS (RA)e, @RHOF sSET OFSET REGISTER 

7669 830050 013777 002342 152114 MOV @SOFSETC,@RHCS1 sMOVI4 INTO RHCS1 

787A 030956 000200 RTS Re sRETURN TO MAIN PROGRAM 

7871 

7872 

7873 @30@60 013701 002172 CLDISKs: “OV @@RHCS1, 281 WILL BE CONTROL AND STATUS! 
7874 &8309064 013702 002170 MOV @eRHCS2, 3P2 WILL BE CONTROL AND STATUS2 
7875 830070 613703 902214 MOV @eRHDS1, 2R3 WILL BE DISK STATUS REGISTERI 
7876 830074 913704 902174 MOV @@RHERI, 2R4 WILL BE ERPOR REGISTER #1 
7277 

7878 030108 612712 900040 MOV eCLP,@R2 sCLEAR ALL REG. 

7879 030104 13712 0804602 MOV QGUNTT,@R2 sREINSTATE UNIT WO, 

7RBA 830110 405011 CLR @P1 sCLEAP FUNCTION BITS 

7881 830112 0600207 RTS ec 








MAINDEC©11-DERPVoR 
DERPVB,PIi1 


7882 
TRAY 
7864 
7A85 
7886 
7887 
78RA 
7889 
7890 
7891 
7892 
74893 
7294 
7895 
7A96 
7897 
7898 
7899 
7990 
7901 
790? 
71903 
7904 
7905 
7906 
7907 
7908 
7999 
79190 
7911 
7912 
7913 
7914 
7915 
7916 
7917 
7918 


@30114 


30116 
030122 
1 30130 
030132 
030136 
030140 
039144 
430152 
030154 
030156 
030162 


430166 
030170 
30174 


030176 
030262 
030206 
930210 
030214 


30216 


AHOAOA 


011637 
162737 
011346 
052716 
070406 
011637 
162737 
011346 
011146 
042716 
422726 


091403 
#11137 
194062 


042716 
022726 
901403 
011337 
104961 


900207 


MACY11 27(732) 
SUBROUTINES 


30114 
AVOABE 


000100 
030114 
arore4 


173577 
004200 


001122 


192000 
010700 


030114 


@30114 


18eFEB°76 16:72 PAGE 146 SEQ #174 


sTHTS CHECKS NFVICE AVAILABLE (OVA) AND PEADY (ROY) IN RHCSI 
:AND CHECKS MFOIUM ON LINE (MOL), DFVICE PRESENT (DPR), DEVICE READY (DRY) IN RHDS1 
PCJSR: @ :PC OF JSR 


CHECK: MOV (SP),@sPCJSP sSAVE PC OF JSP+4 

SUB 64,@ePCJSR sGET PC OF JSR 

MoV @R3,°(SP) sGET RHDS1 

BIS evVvV,(SP) sDONT CHECK VV BIT 

BR CHECKC 3GOTO COMMON CHECK ROUTINE 
CHECKTs MOV (SP),@ePCJSR sSAVE PC OF JSRO4 

SUB 04, @e8PCJSR 3GET PC OF JSR 

“OV @R3,°(SP) :GET RHDS1 &© DO VV CHECK AT 38 
CHECKC: MOV @R1,°(SP) sGET CS1i 

BTC 8173577,(SP) sCLEAR UNWANTED BITS 

CMP @OVAIRDY, (SP) sRHCS1 SHOULD HAVE DEVICE AVAILABLE 

sAND BE READY 

BEQ 38 sBRANCH IF GOOD 

MOV @R1,@@$BDADR sBAD DATA REGISTER (RHCS1) 

ERPOR 62 sPHCS1 OID NOT HAVE DEVICE 


sAVAILABLE RIGHT AT THE START 
sALL OTHER BITS SHOULD BE 6 


363 BIC #ATASLBT, (SP) sCLEAR UNWANTED BITS 
cMp @MOLIDPRIDRY!IVV,(SP)¢sRHDS1 SHOULD HAVE THESE SET 
REQ 78 sBRANCH IF GOOD 
MOV @R3,@8S8DADR s8AD DATA IN REGISTER (RHOS1) 
ERROR 61 sRHNS1 HAS SOME BITS OTHER 


THAN MOL, PRY, DPR,VV SET 
sALL OTHER BITS SHOULND BE @ 
783 RTS pc sRETURN TO TEST NO, 


MATINDFEC-11-DERPVeoR MACY11 27(732) 18eFER=76 16:77 PAGE 147 SEQ 4175 
DFRPVB,P11 CUBROUTINES 


7919 

7920 :THIS TS A SUBROUTINE TO SAVE REGISTERS 

7971 TIN THE REGISTER TABLE TO ANY LOCATION 

7922 :THE CALL IS 

7923 s JSR RPO, @8SAVER 

7924 3 F 2FROM 

7925 ? T :TO 

7976 ? N NUMBER OF WORDS SAVED 

7927 :F MUST ALWAYS AF RHCS1 

7928 3T MUST ALWAYS BE SAVRE 

7929 

7930 030720 SAVER: 

7931 @30220 010146 “OV Ri,°(SP) 73PUSH R1 ON STACK 

7932 @30222 0102746 MOV R2,°(SP) 3sPUSH R2 OWN STACK 

7933 030224 010346 MOV P3,°(SP) 23PUSH P3 ON STACK 

7934 639226 612001 MOV (RA)e,R1I s FROM 

7935 030230 012002 “OV (RAYe~.R2 3TO 

7936 630232 012003 MOV (RO)o,R3 27NUMBFR 

7937 830234 613122 MOV @(P1)¢,(R2)¢ » 3AVE REGISTER CONTENTS 
7938 €30236 005303 DEC R3 sCOUNT 

7939 830240 001375 BNE 18 sBPANCH IF NOT DONE 
7949 €30242 012603 “OV (SP)o,PR3 23POP STACK INTO R3 
7941 8030244 012602 “OV (SP)¢,R? 33POP STACK INTO R? 
7942 @30246 012691 “OV (SP)o,R1 33POP STACK INTO RI 
7943 030250 9#e°200 RTS RO 

7944 

7945 

7946 

7947 

7948 

7949 

795@ 

7951 

7952 

7953 

7954 

7955 

7956 

7957 

7958 

7959 sWHEN AN EVENT IS TO BE TIMED THE RPPA4 VECTORS TO "TIME 4* 
71960 sPRIORITY OF PROCESS OR IS 4 

7961 sPRIORITY OF TRAPS MUST BE 6 

7962 sPRIORITY OF RPO4 INTERRUPTS IS 7 

7963 ’ 

1964 

7965 030252 0853277 151754 TIME1: CLR @PCLCSR :STOP THE CLOCK 
7966 930256 017737 151754 630310 MOV @PCLCTR,@O9WAITTM 3:GET TIME ON CLOCK 
7967 830264 617737 151736 044550 TIMF2: MOV @RHCC,@eFINACC :GET CURRENT CYLINDER 
7968 630272 617737 151732 904546 MOV G@RHLA,@OFINALA 3:GET LOOK AHEAD 
7969 030300 #00902 RTI sRETURN TO WAIT P OR WAIT.T 
7970 

7971 

7972 . 

7973 sTHIS IS A WAIT LOOP WHEN AN EVENT IS TO BE TIMED 

71974 sTHE CALL IS 








MAINDEC#11-DERPVeR 
DFRPVA Pi) 


7975 
71976 
71977 
7978 
7979 
7980 
7981 
7982 
7983 
7984 
7985 
7986 
7987 
7988 
7989 
7990 
7991 
7992 
71993 
7994 
7995 
71996 
7997 
7998 
7999 
ev0a 
8001 
APA2 
BYA3 
BUA4 
AAAS 
AACE 
8907 
BAER 
e209 
8710 
8V11 
8412 
6713 
8u14 
8015 
8016 
8V17 
8a18 
8019 
8320 
8721 
8422 
8923 
8024 
8025 
8926 
8927 
8028 
8929 
8730 


A3O302 
030304 
A3A3N6 
930310 
030312 
030316 
430322 
#30330 
030332 
030334 
030336 
430340 
030344 
030350 
030356 
930362 
030366 
030370 
A30372 


030376 
A30402 
030410 
030412 
A30414 
030416 
030422 
030430 
30432 
030434 
030436 
30444 
#30452 
030454 
039456 
930460 


030462 


A3A464 
030472 


MACY11 27(732) 


SUBROUTINES 
aBORRe 

908909 

800000 

AA0300 

AAS037 830310 
005077 151712 
A12777 900021 
010046 

010146 

010246 

010346 

016690 900010 
019037 030302 
162737 900002 
013037 030304 
012937 030306 
012001 

012002 

10066 2800710 
013703 030550 
933777 A303%6 
001025 

005303 

001372 

013703 030559 
033777 030306 
401015 

#05 303 

001372 

017737 177642 
032777 000100 
001402 

194901 

#00427 

104002 

000425 

017737 177614 
032777 0800100 


151702 


030302 


177674 


177654 


001126 
151520 


001126 
151472 


1ReFER=76 16222 PAGE 148 SEQ #176 


3 WAT 

3 a sAPRSOLUTF REGISTER ADDRESS 

H BR sBIT WAITED FOR 

: TA sTIMFE ALLOWFD GIVFN IN 10 MICROSEC 

H TO : TOLERANCE PLUS/MINUS IN 10 MICROSEC 


3 

sRieWILL HAVF TIME ALLOWED IN 1@ “ICRO SECONDS 

sR2-WILL HAVE TOLERANCE PLUS/MINUS IN 10 MICRO SFCONDS 
sMINIMUM TIME THAT CAN BF MEASUPED TS ABOUT 12 MICRO SECONDS 
sFOR THF SLOWEST PROCESSOR 


WAITPC: @ sWAT PC 
WAITPE: @ WAIT ON REGISTER ANDDPESS 
WATTBT:s @ sWATT ON BIT 
WAITT™: @ sWAITED TIME 
WAIT.Ps: CLR @swAITT™ sCLFAR WAITED TIME 
CLR @PCLBUF ;CLEAP COUNT SET 8UFFER 
MOV sGO!IBIT4,@PCLCSR sCOUNT UP, 190 KHZ, START CLOCK 
MOV RO,°(SP) s3PUSH RO ON STACK 
MOV Ri,-(SP) 23PUSH R1 ON STACK 
MOV R?,°( SP) :3PUSH R2 ON STACK 
MOV R3,°(SP) 23PUSH P3 ON STACK 
MOV 149(SP),RO sR@ HAS ADDRESS OF NEXT LOCATION 
MOV RO, @swWAITPC sNOW WAITPC HAS WAT PC ¢# 2 
SUB 62,@eWwAITPC sWAT PC IS IN WAITPC 
MOV @( RAO), @SWAITRE sWAIT ON REGISTER ADDRESS 
MOV (RO)¢,@GWAITBT WAIT OW BIT 
MOV (R@DO,R1 3R1 WAS TIME IN 10 “SFC 
MOV (RO)¢,R2 2R2 HAS TOLERANCE IN 10 MSEC 
MOV RA,10(SP) sRESTORE RETURN ON STACK 
sTHIS SECTION WAITS FOR BIT, THROUGH TWO COUNT DOWNS 
MOV OCTIMCNT,R} 3R3 IS A TEMPORARY COUNTER 
iss BIT COWAITHRT,@WAITRE :IS PEQUIRED BIT THERE 
BNE 4s sBRANCH IF YES 
DEC R3 sCOUNT IF REQUIRED BIT NOT THERE 
BNE 1s 
MOV @eTIMCNT,P3 : TEMPORARY COUNTER 
283 BIT @OWAITAT,@WAITRFE 3:IS REQUIRED BIT THERE 
BNE 48 sBRANCH IF YES 
DEC R3 sCOUNT IF REQUIRED AIT NOT THERE 
BNE 28 
MOV Q@WAITRE, @@$ARDDAT ;REGISTER CONTENTS FOR TYPEOUT 
BIT @IE,@PHCS! 20IP ANY INTERRUPT OCCUP 
BEQ 38 sBRANCH IF YES 
ERROR 1 :RP@4 DID NOT INTERRUPT 
BR 78 2:0UT 
363 ERROR 2 sR PO4 INTERRUPTED BUT WAITED 


sON BIT DID NOT OCCUR 
sEVEN AFTER TWO COUNT DOWNS 
sFROM 177777 TO @ 


RR 76 sOUT 
NOW TIME AND TOLERANCE wILL BE CHECKED 

463: MOV Q@WAITRE,@8S$BNDAT s;REGISTER CONTENTS FOR TYPEOUT 
BIT @1E,@RHCS1 29ID ANY INTERRUPT OCCUR 


A 





MAINDFC*11-DEPPV-R 
DERPVR. P11 


A731 
8032 
833 
RA34 
A335 
RA 
8037 
838 
8239 
R740 
8341 
8042 
843 
8044 
8u4as 
RA46 
A047 
8048 
ee4ag 
8A5A 
e4si 
8452 
853 
R54 
RASS 
8756 
8057 
8958 
8959 
RAGA 
8461 
802 
8063 
8°64 
8065 
8A66 
867 
8968 
8v69 
897A 
8971 
8972 
8073 
8074 
8A75 
8976 
8477 
8078 
8n79 
aaRea 
881 
@A82 
8483 
8AB4 
8985 
RARGH 


et TC LLL 


8305A0 
430862 


#39504 
030506 
A30510 


430514 
030516 


030520 


30522 
030524 
930526 


039532 
030534 


030536 
030536 
030540 
030542 
039544 
230546 


030550 


030552 
039552 
030554 
030556 
30562 
039566 
030574 
439600 
39604 
39606 


AA1402 
194003 


A70414 
166201 
023701 


103402 
104004 


AA0406 


969202 
060201 
020137 


193001 
104004 


012603 
012602 
#12601 
012609 
@F0802 


177777 


010046 
010346 
816600 
010937 
162737 
013037 
012037 
022020 
010066 


MACY11 27(732) 
SUBROUTINES 


030310 


30310 


M8004 
030302 
000002 
030304 
030306 


1RoFEBO76 


REQ 


1632? 


FEPPOR 


BR 
583 SB 
CMP 


RHIS 
ERROR 


683 AND 
AnD 
cmp 


BHIS 
ERROR 


78% 
MOV 
MOV 
MoV 
MOV 
eT! 


PAGE 149 


5$ 
3 


7$ 
R2?,P1 
@SWATTTM,RI 


6$ 
4 


78 


R2,R2 
P2,P1 
Pi,@ewAITTM 


78 
4 


(SP)¢,R3 
(SP)o,R2 
(SP)o,R1 
(SP)4¢,RO 


sBRANCH IF YES 

s INTERRUPT DID NOT OCCUR EVEN 
sAFTEP ONF ANE AND OWE MOV 
2OF THE WAITED ON BIT SETTING 
sOuUT 

3R1 NOW HAS LOWER LIMIT OF TIME 
sFOR GOOD RFSULTS, WAITTM 
:MUST BE GREATER OR EQUAL 

s TORI 

sARANCH IF GOOD 

:BIT DID OCCUR AIT TIVE 

s TAKEN ITS BELOW LOWER LIMIT 
29UT 


?MOUBLE TOLFRANCE 

:R1 NOW HAS UPPER LIMIT OF TIME 
sFOR GOOD RESULTS, WAITTM 

:MUST BE LESS OR EQUAL TO Ri 
sBRANCH IF GOOD 

sRIT OID OCCUR BUT TIME TAKEN 
31S APOVE UPPER LIMIT 


33POP STACK INTO R3 
:3POP STACK INTO R2 
73POP STACK INTO Ri 
33POP STACK INTO RO 
sRETURN TO MAIN TEST 


sTHIS IS A WAIT LOOP WHEN NO PeCLOCK IS AVAILABLE 
:NO TIMING IS DONE 


sCALL IS 

3 WAT 
3 A 

? R 

3 TA 
? TO 


WAIT.T3 
MOV 
MOV 
MOV 
MOV 
SUB 
MOV 
MOV 
CMP 
MOV 


sABSOLUTE REGISTER ADDRESS 


sBIT WAITE) FOR 


sTIME°NOT USED MERE 
tTIME*NOT USED HERE 
sP3°IS A TEMPORARY COUNTER 
TIMCNTs 177777 


RO,°(SP) 
P3,-(SP) 
4(SP),RO 
RO, @eWAITPC 
#2,@eWAITPC 


@(RO)+, @8WAITRE 
(RO)o, @e¢WAITBT 


(ROO, (RO)D4 
RO,4(SP) 


sCOUNT FOR WAIT LOOP 


29PUSH PO ON STACK 

23PUSH R3 ON STACK 

2R@ HAS ADDRESS OF NEXT LOCATION 
sWAT PC #2 IS IN WAITPC 

sWAT PC IS IN WAITPC 

sWAIT ON REGISTFP ADDRESS 

sWAIT ON BIT A 

sDUMP NEXT TWO WORDSeTA, TO 
sRESTORE RETURN ON STACK 


sTHIS HAS THE TWO COUNT DOWNS FROM 177777 


SEQ 0177 


MAINDEC 11 -DERPVeB MACY11 27(732) 1eFFRe76 16227? PAGE 150 SEQ 01786 
DFRPVR,P11 SUBROUTINES : 
BART 30612 8613793 830550 MOV @eTIMCNT,R3 3P3 HAS TFMPORAPY COUNT 
89RB 37616 8633777 430306 177460 183 RIT Q@GWAITAT,QWAITPE 31S REQUIRED RIT THERE 
RPRG 839624 001025 BNE 4s s8RANCH IF YES 
8P90 830626 8605303 DEC R3 sCOUNT IF REQUIRED BIT NOT THERE 
8991 630630 001372 BNE 18 
8092 030632 013703 030550 MOV @eTIMCNT,R3 #SECOkD COUNT DOWN FROM 177777 
8°93 830636 433777 830306 177448 $3 BIT @GWATTBT,@WAITRE gI1S PEQUIRED BIT THERE 
8494 8030644 AA1015 BNE ge :BRPANCH IF YES 
8995 030646 AA5303 DEC R3 sCOUNT TF REQUIRED BIT NOOT THERE 
8096 4309650 01372 BNE 28 
8097 030652 17737 177426 001126 MOV QWAITRE, @8SBNDAT ;REGISTER CONTENTS FOR TYPFOUT 
8°98 837660 0632777 APA10® 151304 BIT eTE,@RHCS1 :DIP ANY INTERRUPT OCCUR 
8499 8309666 901402 BFO 3s sRRANCH JF YES 
810A A30670 1794001 ERROR i sRP@4 DID NOT INTERPUPT 
R191 sBIT CID WOT OCCUR 
8192 039672 970414 AR 5s 20UT 
8193 834674 104002 38% ERPOR 2 sRPO4 INTERRUPTED BUT 
R104 t@AITED ON BIT DID NOT OCCUR 
8105 sFEVEN AFTER TWO COUNT DOWNS 
8196 sFROM 177777 TO @ 
8107 830676 90412 BR S$ 3:0UT 
8198 
81709 RIT DID SET SO CHECK IF INTERRUPT OCCURED 
8119 830700 #11010 4$3 MOV (0),(@) sALLOW TIME FOR INTERRUPT 
R111 830702 832777 @90100 151262 BIT e1E,@RHCS1 sDIP ANY INTERRUPT OCCUR 
8112 @30710 001405 BEQ &S& sBRANCH IF YES 
8113 830712 817737 #%4177366 081126 MOV Q@WAITRE,@@6RDDAT sREGISTER CONTENTS FOP TYPEOUT 
8114 630720 104903 EPROR 3 s INTERRUPT DID NOT OCCUR 
8115 sEVEN AFTER ONE ANE OF 
8116 sTHE WAITED ON BIT OCCURING 
8117 830722 an0400 RR 5$ sOUT 
8118 30724 58: 
8119 A@3IA724 812663 MOV (SP)o,R3 33POP STACK INTO R3 
8120 830726 612600 MOV (SP)¢,RO 23POP STACK INTO RO 
8121 833730 880002 PTI gRETURN TO MAIN TEST 





MATINDEC #11 °DERPV<R 
SUBROUTINES 


DERPVA.P11 
6177 
8123 
6124 
8125 
81276 
R127 
8128 
#129 
8134 @39732 
8131 30732 
8132 030734 
R133 30736 
8134 939740 
8135 A30742 
6136 030746 
8137 9330750 
8138 830752 
8139 030756 
8142 039760 
R141 030764 
8142 030766 
8143 830770 
8144 0830772 
#145 830774 
8146 
6147 
8148 
8149 
8159 
6151 
8152 
8153 
8154 
8155 
8156 
8157 
8158 
8159 
816% 830776 
8161 930776 
8162 931000 
8163 31902 
8164 031004 
R165 031006 
8166 9831010 
8167 831012 
B16R 431014 
8169 
8170 031016 
6171 431920 
8172 831922 
8173 031024 
8174 031926 
8175 431030 
8176 831432 
8177 431034 


ES 


010146 
010246 
912001 
012002 
162701 
005720 
001403 
#52061 
980432 
042061 
095302 
001367 
012602 
012601 
090209 


010146 
017246 
0140346 
010446 
012001 
012002 
012003 
012004 


010321 
060403 
095382 
001374 
012604 
012603 
012602 
012601 


MACY11 27(732) 


AA2164 


004476 


094476 


1ReFER<76 


16:22 PAGE 151 


SEQ #179 


sTHIS CHANGES FFGISTER SAVED VALUF 


sCALL IS 
’ JSP KA, @eCHPFG 
i P sPEGISTFR TO RPE CHANGFD 
U N sNUMBFER OF BITS TO AF CHANGED 
3 NEW sNEW VALUE OF BIT MUST RE @ ORI 
3 P sPOSITION OF BIT TO RE CHANGED 
sNEW AND P WILL BE REPFATED N NUMBEP OF TIMES 
CHREG? 
MOV R1,-(SP) s3P'ISH PY ON STACK 
MOV R2,°(SP) :3PUSH R2 ON STACK 
MOV (PO) o,Ri :Ri HAS ADORESS OF ADDRESS OF REGISTER 
MOV (RO)O,R2 3R2 HAS NUMBER OF CHANGES 
SUB @PHWC,RI sRi HAS OFSET OF REQUIRED REGISTER 
183 TST (RA)¢ sTS A BIC OR A BIS TO BE DOKE 
REQ 28 sBRANCH IF A RIC TS REQUIPED 
BIS (RO)e,SAVFRE(R1) sSFT REQUIPED BIT 
BR 38 sBRANCH TO DECREMENT COUNT 
283 RIC (R@)*,SAVERE(R1) sCLEAR REQUIRED BIT 
3$3 orc R2 sDECREMFNT NUMBER OF CHANGES 
BNE 18 :BRANCH IF NOT COMPLETE 
MOV (SP)¢,R2 s3POP STACK INTO R2 
MOV (SP)¢,R1 33POP STACK INTO Ri 
RTS RO sRETURN TO MAIN PROGRAM 


sTHIS FILLS A BLOCK WITH INCREMENTAL DATA 


sCALL IS 
3 JSR RA, @sFILL 
3 2 3FROM 
2 N “sNUMBER OF WORDS 
: s sSTARTING VALUE OF DATA 
3 I s INCREMENT DATA BY 
FILL: 
MOV Ri,°(SP) 23PUSH R1 ON STACK 
MOV R2,°(SP) s3?PUSH R2 ON STACK 
vOV R3,°(SP) 23;PUSH R3 ON STACK 
MOV R4,°(SP) s3PUSH R4@ ON STACK 
MOV (RO)o,R1 sRi HAS ADDRESS WHERE DATA IS TO GO 
MOV (RO)¢,R2 3R2 HAS NUMBER OF WORDS TO BRE FILLED 
MOV (RO)D¢,R3 :STARTING VALUE OF DATA 
MOV (RO)o,R4 3R4 HAS INCREMENT 
sNOW DATA WILL BE FILLED 
18% MOV R3,(RI)¢ sFILL DATA 
ADD R4,P3 :GET NEXT VALUE OF DATA 
DEC R2 sDECREMENT COUNT 
BNE 18 sBRANCH IF ALL NOT DONE 
MNV (SP)4,R4 23POP STACK INTO R4@ 
MOV (SP)¢,R3 :3POP STACK INTO R3 
MOV (SP)+,R2 23POP STACK INTO R2 
MOV (SP)¢,R1 :3;POP STACK INTO Ri 


MAINDEC<11-DERPV<B MACY11 277(732) ‘%8eFER©76 16227 PAGE 157 SEQ #180 
DEROVA, P11 SUBROUTINES 

R17AHR 831036 9390209 RTS RP? sPETIPN TO MAIN PROGRAM 

8:79 

8184 

8181 

A112 

6183 

A184 

8185 sTHTS TS A SUBROUTINE TO COMPARE REGISTERS 

81% :GOOD DATA IS ALPEANDY SAVED IN “SAVERF? 

8187 sTEST DATA IS IN THE REGISTERS 

8188 sCALL IS 

8189 3 JSP RO, @8COMPEG 

8194 H SAVERE :GOOD DATA 

R191 3 RHCS! sADDRESS OF ADDRESS TEST DATA 

8192 ’ _. sRETURN FOR ERROR 

8193 ’ RG sRETURN FOR GOOD COMPARISON 

8194 7ON RETURN WITH FPROR “$GDDAT’ HAS GOOD DATA, °SBDDAT® HAS BAD DATA 

8195 s°REGADR® HAS REGISTER ADDRESS 

8196 

8197 #31940 COMPEG? 

8198 631940 #10146 MOV P1,-(SP) s3PUSH R1 ON STACK 

68199 31042 610246 MOV R2,°(SP) :37PUSH R2 ON STACK 

820% 831944 810346 “OV R3,°(SP) #3PUSH R3 ON STACK 

8241 031946 810446 MOV P4,°(SP) 23PUSH P4 ON STACK 

8202 031059 610546 MOV RS,°(SP) :3PUSH RS ON STACK 

8203 @31952 812001 MOV (RO)O,R1 7P1 HAS ADOPESS OF GOOD DATA 

8204 31054 8012002 MOV (RO)e,R2 2P2 HAS ADDRESS OF ADDRESS OF TEST DATA 

8205 31956 812003 MOV (RO)o,R3 3R3 HAS NUMBER OF WORDS 

8206 31960 012004 MOV (ROA)O,R4E 3R4 HAS RETURN FOR ERROR 

8207 831962 011000 MOV CRA), RO 3R@ HAS RETURN ON NO ERROR 

8208 sNOW SAVE REGISTERS 

8209 €31964 604737 0831764 JSR PC, @SPUTREG sSAVE REGISTERS 

@210 31070 113737 004523 9802267 MOVB @OSAVERE+25,@@ASe1;MAKE UPPER BYTE OF RHAS SAME 

6211 31976 612705 177776 “OV e-2,R5 sPRESET RS TO 2 

8212 sNOW COMPARES WILL MADE 

8213 31102 962705 600002 1$3 ADD 82,P5 s INCREMENT TO INDEX 

8214 031196 822122 cMP (P1)oe (R206 sCOMPARE REGISTER CONTENTS 

8215 631110 001420 BEQ 2s sB8RANCH IF GOOD 

8216 931112 614137 001124 MoV -(R1)-@86GDDAT sSAVE GOOD DATA 

8217 031116 014237 0601126 MOV @(R2),@68SBDDAT SAVE BAD DATA 

8218 31122 616537 002164 094464 MOV RHWC( RS), @SREGADR sSAVE ADORESS OF FAILING REGISTER é 

8219 031130 904714 JSR PC,@R4 sRETURN TO “MAIN PROGRAM 

8220 3TO PRINT ERROR 

8221 031132 622122 cmp (RI )e@e(R2)¢ sUNDO -(R1) AND -(R2) FOR ERRORS 

8222 @31134 613746 177570 MOV @SSWR,-(SP) sGET SWITCH SETTING 

8223 031140 042716 177177 BIC #°C600,(SP) sKEEP ONLY SWITCH 7 AND 6 

8224 031144 22726 80200 CMP @SWO7,(SP)¢ 31S 7 SET AND 6 DOWN 

8225 031150 001402 BFO 3$ sBRANCH OUT IF YES 

8226 031152 0605303 283 DEC R3 sARE ALL COMPARES DONE 

8227 631154 001352 BNE 1s sBRANCH IF NOT COMPLETE 

8228 

6229 #31156 383 

8232 431156 012605 MOV (SP)4,R5 :3POP STACK INTO RS 

8231 31160 012604 MOV (SP)o,R4 29POP STACK INTO R4@ 

8232 31162 012603 MOV (SP)4,R3 23POP STACK INTO R3 


8233 031164 012602 MOV (SP)+,R2 23POP STACK INTO R2 





MAINDEC#11-DERPV-B MACY11 27(732) 18-FER*76 16222 PAGE 153 ; SEQ #161 
DEPPVB P11 SUBROUTINES 


6234 31166 412601 “OV (SP)¢,R1 23POP STACK INTO Rt 
8235 431179 900200 RTS Re sRETUPN TO MAIN PROGRAM 
8236 831172 9n0000 WORD @ :TEMP STORAGE 





MAINDEC $11 -DERPV<B 
DFRPVA P14 


6237 
8238 
8239 
6240 
8241 
8242 
8243 
8744 
6245 
8246 
8247 
8248 
8249 
8250 
6251 
8252 
8253 
8254 
8255 
8756 
8257 
A258 
62759 
8260 
8261 
8262 
8263 
6764 
8265 
8266 
8267 
8268 
8269 
8270 
9271 
8272 
8273 
6274 
8275 
8276 
8277 
8278 
8279 
8280 
8281 
9282 
8783 
8284 
8285 
8286 
8287 
8288 
82a9 
8294 
6291 
8292 


931174 
431176 
031176 
031202 
431210 
031214 


031260 
031260 
031264 
431266 
#31272 


031324 
031324 
031330 
#31332 
431336 
#31342 


031424 
031424 
031430 


031472 
631472 
031476 


#31564 
931564 
031566 
931572 
#31576 
031602 


005067 
012737 
194400 
900421 


013746 
104402 
104400 
000414 


013746 
104402 
1944¢6 
104400 
000430 


194400 
0800420 


194400 
000432 


104416 
962716 
012637 
194400 
000417 


MACY11 27(732) 
SUBROUTINES 


146574 
177777 
031216 


004470 
031274 


@01110 


001215 
031344 


@31432 


031500 


034666 


18eFEP*76 16222 PAGE 154 SEQ 0182 


sHERE TS A DETAILED EXPLAINATION OF HOW THE LOOP ON ERROR WORKS, 
20ON HITTING AN FRROP IF THE LOOP ON ERROP SWITCH IS SFT, THE 
sPROGRAY GOFS RACK © USUALLY BACK TO THF BEGINNING OF THE TEST. 


sWHEN THIS OPERATOR SELECTABLE SCOPE LOOP IS USED THEN THF POINT 
sTHE PROGRAM GOFS BACK TO CAN BE CHANGED, 

sTHE RESTRICTIONS TO THE POINT WHERE THF PROGRAM CAN GO ARE? « 

21. IT MUST BE WITHIN THE TEST UNDER CONSIDERATION 

32, LOOP ON FRROP SWITCH MUST BE SFT 

23. THE FRROR MUST OCCUR WITHIN THE TEST UNDER CONSIDERATION 

:1F THE ERROR DOES NOT OCCUR WITHIN THE TEST 'NDER CONSIDERATION 
:THE PROGRAM WILL REVERT TO NORMAL OPFRATION, HOWEVER, IF LOOP ON 
sTEST SWITCH IS SET AWD THIS OPERATOR SELECTABLE SCOPE LOOP IS USED 
sTHEN THE PROGRAM WILL LOOP BACK TO THE SELFCTED POINT WHEN IT 
sCOMES TO THE END OF THE TEST UNDER CONSIDERATION, 

: 

sAFTER LOOPING FOR SOME TIME IF THE LOOP SWITCH IS PUT DOWN THEN 
sNORMAL OPERATION WILL CONTINUE, 


TESTAD: @ sFIRST ADDRESS OF TEST 
OPERSEL: 

CLR PS sMAKE PROCESSOR STATUS ZERO 

MOV 8-1, @8PRITEM sCLEAP PREVIOUS ITEM NUMBER 

TYPE 004 r3TYPE ASCIZ STRING 

BR 6458 33GET OVER THE ASCIZ 

33 .ASCIZ €15>¢€12>/THE PROGRAM WAS IN TEST NUMBER / 
6483 

MOV @STSTNM,°-(SP) sGET READY TO TYPE TEST 

TyYPoc sNUMBFR 

TYPE 0204 tsTYPE ASCIZ STRING 

BR 658 :3GET OVER THE ASCIZ 

22 ASCIZ <15>€12>/THE LOOP BACK PC WAS / 
656% 

MOV @SSLPERR,-(SP) sGET PEANY TO TYPE LOOP BACK PC 

TYPOoc 

TYPE e SCRLF 

TYPE 204 seTYPE ASCIZ STRING 

BP 668% 33GET OVER THE ASCIZ 

23,ASCI2 <15><€12>/SET SWITCH FOR LOOP ON ERROR OR LOOP ON TEST/ 
668: 

TYPE 0004 ssTYPE ASCIZ STRING 

BR 678 23GET OVER THE ASCIZ 

33,ASCIZ <15><12>/TYPE THE FIRST PC OF THE TEST/ 
6763 

TYPE oe4 :eTYPE ASCIZ STRING 

RR 68s s3GET OVER THE ASCIZ 

33.ASCI2 <1$><12>/T0O BE LOOPED ON FOLLOWED BY A CARRIAGE RETURN /<€15><12> 
686: 

RDOCT 

ADD 02.(SP) sGET LPADR 

MOV (SP)e¢,@esLPADP 

TYPE 0204 ssTYPE ASCIZ STRING 

BR 698 33GET OVER THE ASCIZ 

33 -ASCIZ €15>¢12>/TYPE THE PC WHERE YOU WANT/ 


a a LL eee 


MATNDEC ©11°DERPVes 
DFREVP PTI 


a7o3 
8794 
a79° 
8296 
8297 
QI9R 
a299 
P3300 
R301 
9302 
8303 
83"4 
a3v5 
836 
R307 
RAR 
Bes 
8319 
e311 
831? 
8313 
8314 
231s 
R316 
8317 
AI1A 
8319 
8320 
8421 
8322 
R323 
4324 
83275 
8326 
&327 
83278 
8329 
8330 


#31642 
31642 
931646 


431750 
ai7se 
#31752 
#31756 
721762 


031764 
031764 
031766 
31770 
O31772 
031776 
32902 
932906 
032010 
@32012 
432014 
32016 
032920 
032022 


MACY11 27(732) 


SUBROUTINES 


Ww4ataa 
AeA ae 


194416 
012637 
413746 
AAHEAD 


019046 
010146 
A10246 
912700 
#12701 
O12702 
013921 
45302 
001375 
012602 
012601 
012600 
0207 


031650 


oariiie 
PA1106 


#92164 
002242 
APHC22 


LAeFEReIH 816277 


6983 


7?$3: 


PUTPEG? 


1?$2 


TYPE 
AP 
s2eASCTZ 


RAOCT 
MOV 
“ny 
RTT 


PAGF 155 


eee 
Tes 


se TYPF ASCII? STRING 
¢3GFT OVER THE ASCT? 


SEQ 7183 


€15><12>/ THE PROGRAM TC LOOP BACK TO FOLLOWED RY A CARRIAGE RETUP 


(SP)¢,@SSLPERP 
@esLPADR,=(SP) 


:GFT LPFRR 


:THTS SAVFS THE CONTENTS OF ALL HARNWAPE REGISTERS 
:IN MFYGORY LOCATIONS TAGFND FROM "WC" TO "FC2* 


:THIS IS DONE SO THAT COMPARES ARE DONE WITH SAVED LOCATIONS 


:AND NOT THF PEGTSTERS THEMSELVES. THIS WILL MAKE 
sERROR PRINTOUTS FOR GOOD AND BAD DATA ALWAYS DIFFRENT 


“NV 
MOV 
vOV 
vovV 
“OV 
MOV 
MOV 
DEC 
BNF 
MOV 
woyv 
“OV 
RTS 


RO,°(SP) 
P1,°(SP) 
P2.°(SP) 
ePHWC,RO 
aac,Pi 


:3PUSH RO ON STACK 

¢:PUSH RY ON STACK 

::PUSH R2 ON STACK 

STARTING ADDRESS OF PEG 
gSTARTING ADDRESS OF WERE SAVFD 


@®HCC-PHWCe2/2,P2 ;NUMBFR OF REG, INTO k2 


a(PO)e, (RID 
Pp? 

108 

(SP)o,R? 
(SP)¢,R1 
(SP)¢,RA 

pc 


?SAVE HARDWARF REG, 


‘g3:POP STACK INTO R2 
:3POP STACK INTO Rij 
:3;POP STACK INTO RO 


MAINDEC©11-DERPV=B 
DERP VB, Pil 


6331 
8332 
8333 
8334 
8335 
8336 
6337 
833 
8339 
8340 
8341 
8342 
8343 
8344 
8345 
8346 
8347 
#348 
8349 
8350 
8351 
8352 
8353 
8354 
8355 
8356 
8357 
8358 
8359 
8360 
836! 
8362 
8363 
8364 
8365 
8306 
8367 
8366 
8369 
6370 
8371 
8372 
8373 
8374 
8375 
8376 
6377 
8378 
8379 
6389 
6381 
8382 
8303 
8384 
8365 
8396 


#32924 
032030 
032934 
432040 
032044 
432050 
0320952 
032056 


932962 
032066 


032070 
032070 
032072 
#32074 
#32076 
032100 
#32142 
032104 
932146 
032119 
@32112 
032114 


MACY11 27(732) 


SUBROUTINES 


012077 
012077 
812077 
012077 
013746 
052016 
012677 
812077 


013077 
#00208 


910146 
010246 
810346 
010446 
910546 
012001 
012002 
%12003 
#12005 
011700 
010304 


150154 
150142 
150124 


. 150122 


94692 


150112 
150120 


150194 


18°FER<76 16222 PAGE 136 


sTHIS IS A DATA COMMAND SETUP SURROUTINE 


sTHE CALL IS 


3 JSR RA, @e8RUN 

: ¢ 

:.BYTE S§ 

2.BYTE T 

H ow 

? 1;) 

: BAI 

3 FMT222ECIIMCI 

HM 

3 

3 com 

RUNS MOV (RA)e,@RHCA 
“MOV (RO)¢,@RHDST 
MOV (RO), @RHWC 
“OV (PO)¢,@RHBA 
MOV @GUNIT,-(SP) 
6Irs (RO)¢, (SP) 
MOV (SP)+¢,@RHCS?2 
MOV (PA)¢,@RHOF 
MOV @(RA)+,@RHCSI 
RTS RO 


sCYLINDER 
: SECTOR 
+ TRACK 


“sWORD COUNT 


BUS ADDRESS 

28US ADNPESS INHIBIT 

2F™T2221 £16 BIT WORDS 

sECI & ECC CORRECTION INHIBIT 
s4CI = HTADFR COMPARE INHIBIT 
sCOMMAND ADDRESS 

sCYLINDER 

2DESIRED SECTOR/TRACK 

sWORD COUNT 

2BUS ADDRESS 

:GET UNTT NO 

sSET BUS ADDRESS INHIBIT 
:UNTT NO AND BAT TO PHCS2 
sFORMAT, ECC INHIBIT, HEADER 
sCOMPARE, IF THERE 

:COMMAND IN RHCS1% 

sRETURN TO MAIN PROGRAM 


:THIS ITS A SUBROUTINE TO COMPARE TWO BLOCKS IN MEMORY 


:R1 HAS GOOD DATA BUFFER ADDRESS 
sR2 HRS TEST DATA BUFFER ADDRESS 


3R5 HAS ADDRESS OF FETURN ON ERROR 
323 HAS NUMBER OF WORDS TO BE COMPARED 
3k4 HAS ONE MORE THAN NUMBER OF WORDS TO BE COMPARED 


:CALL IS 
: JSP RO, @SCOMPAR 
: G sADDRESS OF GOOD DATA 
: T tADDRESS OF TEST DATA 
: N NUMBER OF WORDS TO BE COMPARED 
’ RE tRETURN ON ERROR 
a RG :RFTURN ON NO ERROR 
COMPAR: 
Mov R1,°(SP) :3PUSH R1 ON STACK 
MoV P2,°(SP) :7PUSH R2 ON STACK 
Mov R3,°(SP) :3PUSH R3 ON STACK 
voy R4,°(SP) :7PUSH R4 ON STACK 
MOV RS,°(SP) :sPUSH RS ON STACK 
MOV (RO)¢,R1 :ADDRESS OF GOOD DATA BUFFER 
MOV (PO)o,R? sADDRESS OF TEST DATA BUFFER 
MOV (RO)¢,R3 sNO OF WORDS TO RE COMPARED 
MOV (RO) eRS SRETUPN ON ERROR 
MoV (RE), RO sRETURN ON NO ERROR 
MOY R3,R4 :NO OF WORDS TO BE COMPARED 


SEG 0184 


MATINDEC?11°DERPV-B 
DERPVA,P11 


8387 
8388 
8389 
839¢ 
8391 
8392 
8393 
8394 
8395 
8396 
6397 
6398 
8399 
8400 
8401 
8402 
8443 
8404 
8405 
8406 
8407 
8408 
8449 
8410 
6411 
8412 
8413 
8414 
8415 
8416 
8417 
8418 
8419 
8420 
8421 
8422 
6423 
8424 
8425 
8426 
8427 
8428 
8429 
84390 
8431 
8432 
8433 
8434 
8435 
8436 
6437 
8438 
#439 
6440 
8441 
8442 


032116 
432120 
432124 
032126 


037130 
032134 
032149 
032144 
#32146 
#32150 
032154 
32160 
032164 
032166 
@32170 
032172 
032172 
032174 
#32176 
032200 
032202 
032204 


32206 
032296 
@32212 


032264 
32264 
032270 
032272 
032276 


#32352 
032352 
032354 
432360 
032364 
032370 
032372 
032374 
032376 
032402 


32442 
032442 
432446 
432450 
432454 


432554 
032554 
0327556 


MACY11 27(732) 


SUBROUTINES 


AAS204 
010437 
422122 
001417 


014137 
014237 
160337 
a04715 
@22122 
013746 
642716 
022726 
001402 
005303 
901353 


012605 
012604 
#12603 
012602 
012601 
A0O200 


104400 
800424 


013746 
104482 
104400 
090425 


104416 
412700 
912701 
0427190 
951620 
905301 
901373 
104400 
900417 


013746 
104402 
1044098 
000437 


104416 
612637 


094466 


a01124 
001126 
04466 


177570 
177177 
9A8200 


032214 


082172 
032300 


042162 
800024 
177700 


032404 


9062160 
032456 


002160 


18 eFER<76 


BASECHs 


16:22 


Ic 
MOV 
cup 
REQ 


MOV 
MOV 
SUR 
JSR 
CMP 
MOV 
prc 
CMP 
RFQ 
DEC 
BNE 


MOV 
vOV 
MOV 
MOV 
Mov 
RTS 


PAGE 157 


R4 
R4,@8ERWORD 
(RID, (R74 
28 


@(P1),@@SGNDAT 
@(P2),@8SBDDAT 


P3,@sERWORD 
PC, @RS 
CPL )ee(RID¢ 
@8SWR,-(SP) 
@°C6a0, (SP) 
@SwWA7, (SP) 
38 
R3 
18 


(SP)o,R5 
(SP)o,R4 
(SP)e,R3 
(SP)¢,R2 
(SP)o,R1 
RO 


sRETURN 


sFOR ERROR WORD NO 
sCOMPARE GOOD WITH TEST DATA 
:BRANCH IF GOOD 


:GO0D DATA 

2BAD DATA 

sERROR WORD NO, 

TO PRINT ERROR 

sUNDO e(R1) AND ©(R2) FOR ERRORS 
:GET SAITCH SETTING 

sKEEP ONLY SWITCH 7 AND 8 
21S 7 SET AND ®@ RESET 
s8RANCH OUT TF YES 

sCOUNT 

sBRANCH IF ALL NOT DEVICE 


:3POP STACK INTO RS 
:97POP STACK INTO RG 
:3POP STACK INTO R3 
#9POP STACK INTO R2 
:3POP STACK INTO Pi 
sRETURN TO MAIN PROGRAM 


THIS POUTINE WILL ALLOW THE CHANGE OF THE BASE 
ADDRESS FROM 176700 TO ANY TYPED VALUE 


TYPE 
BR 
33.ASCIZ 


MOV 
tyeoc 
TYPE 

RR 
29.ASCI2 


R0OCcT 
MOV 
MOV 


29.ASCIZ 


MOV 
Typoc 
TYPE 

RR 
99.ASCIZ 


RDOCT 
MOV 


0o%4 
648 


@eRHCS1,-(SP) 


oe%4 
658 


<15><€12>/TYPE NFa@ BASF ADDRESS FOLLOWED BY °CR°/ 


ePHDB,RO 
620,,R1 
e°C77,( RO) 
(SP),(RO)¢ 
Ri 

is 

0004 

668 


ssTYPE ASCIZ STRING 
s3GET OVFR THE ASCIZ 
<15><12>/PRESENT BASE ADDRESS OF REGISTERS IS / 


:GET READY TO TYPF OLD BASE 


s3TYPE ASCIZ STPING 
9sGET OVER THE ASCIZ 


:GET STARTING ADDRESS OF RGISTERS 
sNUMBER OF REGISTERS 

sCLEAR OLD BASE 

sSET NEW BASE 

sCOUNT 

BRANCH IF 20 NOT DONE 

s3TYPE ASCIZ STRING 

33GET OVER THE ASCIZ 


<€15><12>/PRESENT VECTOR ADDRESS IS / 


@sPPVEC,-(SP) 


oee4 
678 


sGET READY TO TYPE OLD VECTOR ADDRESS 


reTYPF ASCIZ STRING 
s?GFT OVER THE ASCIZ 


<15><12>/TYPE NEW VECTOR ADDRESS OR RETYPE OLD ONE FOLLOWED BY “CR 


(SP)+,@eRPVEC 


sSETUP VECTOR ADDRESS 





MAINDEC#11-DERPV<B MACY11 77(732) 1AeFFR*e76 16:22 PAGE 158 SEQ 0186 
DFPPVA.P1I SUBROUTINES 


8443 32562 194409 432570 TYPE 0044 :3TYPE ASCIZ STRING 
8444 032566 900421 BR 68s :3GFT OVER THE ASCIZ 
R445 29.ASCI2 €15>€12>/RESTART PROGRAM FROM 200 OP 210/ 
8446 832632 68S3 

8447 032632 104400 032644 TYPE 004 s3 TYPE ASCIZ STRING 
8448 832636 800414 BR 698 :3GET OVER THE ASCIZ 
8449 23 ASCIZ <€15><€12>/NEW RASE WILL REMAIN/ 
R450 032670 6983 

8451 832670 813746 02172 MOV @eRHCS1,°(SP) 

8452 032674 104402 TYPoc 

8453 932676 104408 0832704 TYPE 044 :3TYPE ASCIZ STRING 
8454 832702 a60415 BR 108 :3GET OVER THE ASCIZ 
8455 33 .ASCIZ <15><12>/NEW VECTOR WILL REMAIN / 
8456 032736 7083 

8457 032736 813746 002160 MOV @SRPVFEC, (SP) 

B45R 8032742 194402 Tyeoc 

6459 A32744 104400 432752 TYPE 0004 s3TYPE ASCIZ STRING 
8460 032750 00416 BR 71s 33GET OVER THE ASCIZ 
8461 33 .ASCIZ €15>¢€12>/UNTIL PROGRAM IS RELOADED/ 
R462 033906 7183 

8463 833076 990000 HALT 


8164 


MAINDEC?11°DERPV<-B MACY11 27(732) 18°FEP*76 16222 PAGE 159 SEQ 4187 
DERPVB.P11 SUBROUTINES 


8465 783010 PPVECTs 

R466 033010 104409 33016 TYPE ood s3TYPF ASCIZ STRING 

8467 A33A14 BuO411 BR 648 33GET OVER THE ASCIZ 

R468 33.ASCI7 /TRAPED FROM PC = / 

8469 033040 

8470 33040 104402 TyPoc : TYPE FROM PC 

6471 433042 #12777 833010 147110 MOV @PPVECT, @PPVEC sPESTORE TRAP RP@4 VECTOR 
8472 033050 A90000 HALT sCHANGE TO CONTINUE 
8473 

8474 

8475 

8476 





MATNDFC11°DERPV-B 
DEROVAR, P11 


8477 
847R 
8479 
648% 
8481 
8482 
8483 
84n4 
R4R5 
B46 
R487 
8488 
8489 
849” 
8491 
8492 
8493 
8494 
8495 
8496 
8497 
8498 
8499 
8500 
8541 
8502 
8503 
8504 
8505 
6506 
8507 
8508 
8509 
8510 
6511 
6512 
8513 
8514 
8515 
8516 
6517 
8518 
8519 
8520 
8571 
8522 
8523 
6524 
8525 
8526 
6527 
8528 
8529 
6539 
6531 
853? 


033452 
033052 
033056 


033960 


033962 
033066 
033074 
833100 
A33104 
033106 
933110 
033114 
33116 
033116 
033124 
033126 
033134 
033136 
#33142 
033144 
033152 
433154 
033162 
033164 
033172 
033174 
033200 
033204 
033206 
033214 
#33216 
033222 
33224 
033230 
033236 
033240 
0332746 
933254 


MACY11 27(732) 


SUBROUTINES 

006137 177570 

100511 

000416 

013746 800004 

012737 033196 

095737 177060 

012637 800004 

AQA463 

22626 

912637 aAene4s 

000423 

€@32737 Aen4aeu 

001404 

123767 177570 

001462 

108767 145741 

901421 

126767 145745 

101015 

@32737 901000 

901404 

916767 145720 

9A0443 

105067 145703 

905067 146700 

000415 

032737 @74900 

@81011 

905767 145656 

AG1496 

905267 145654 

@26767 145750 

€@A2021 

912767 @A0001 

016767 000044 
145622 


105267 


OAB004 


177570 


145746 


145731 
177570 
145714 


177570 


145646 


145636 
1457390 


1R#eFERO76 


16322 
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SEQ 01868 


eSBTTL SCOPE HANDLER ROUTINE 


®THIS ROUTINE CONTROLS THF LOOPING OF SUBTESTS, IT WILL INCREMENT 
s#AND LOAD THF TEST NUMBER(S$TSTNM) INTO THE DISPLAY REG, (DISPLAY<7:4>) 
s@#AND LOAD THE ERPOR FLAG (SFRFLG) INTO DISPLAY<15:48> 

2@THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE APE: 


TFST IN SWRC7:0> 


s3SCOPFsIOT 


23:LOOP ON PRESENT TEST? 
:3YES IF Swi4e2i 


OF CODF FOR THE XOR TESTEPSeses 


s3IF RUNNING ON THE *XOR® TESTER CHANGE 
s3THIS INSTRUCTION TO A "NOP" (NOP#240) 
:3SAVE THE CONTENTS OF THE ERROR VECTOR 
:3SET FOR TIMEOUT 

:3TIME OUT ON XOR? 

ssRESTORE THE ERROR VECTOR 

33:GO TO THE NEXT TEST 

s3CLEAR THE STACK AFTER A TIME OUT 
:3RESTORE THE ERROR VECTOR 

33LOOP ON THE PRESENT TEST 


:3LOOP ON SPEC. TEST? 
238P IF NO 

230N THE RIGHT TEST? 
:3BR IF YES 

279HAS AN ERROR OCCURRED? 
:3BR TF NO 

23MAX, ERRORS FOR THIS TEST OCCURRED? 
33BR IF NO 

33LO0P ON ERROR? 

73BR IF NO 

:3SFT LOOP ADDRESS TO LAST SCOPE 


SWR<7:30> 


#3ZERO THE FRROR FLAG 

2;CLEAR THE NUMBER OF ITERATIONS TO MAKE 
s2sESCAPE TO THE NEXT TEST 

ssINHIBIT ITERATIONS? 

238R IF YES 

33IF FIRST PASS OF PROGRAM 

23 INHIBIT LTERATIONS 

te INCREMENT ITERATION COUNT 

33CHECK THE NUMBER OF ITERATIONS MADE 
273BR IF MORE ITERATION REQUIRED 
ssREINITIALIZE THE ITERATION COUNTER 
29GET NUMBER OF ITERATIONS TO DO 


2#SWi4s) LOOP ON TEST 
2*#SWiisi INHIBIT ITERATIONS 
3*@SwWa9e2! LOOP ON ERROR 
2#SWA88) LOOP ON 
2*CALL 
3% SCOPE 
SSCOPE: 
ROL @eswrR 
BMI sOVER 
2:e8eeeeSTART 
SXTSTR: BR 68 
MOV @eEPRVEC,-(SP) 
MOV 656, @8ERRVEC 
TST 00177060 
MOV (SP)¢,@@ERRVEC 
BR SSVLAD 
583 cp (SP)o,(SP)¢ 
MOV (SP)+,@eERRVEC 
BR 78 
6$82;¢0808END OF CODE FOR THE XOR TESTERGG@CE8 
RIT sRITA8,@eSwR 
REQ 28 
CMPB @eSWR,STSTNM 
BEO sOVER 
283 TSTAR sERFLG 
BEQ 38 
CMPB SERPMAX, SERFLG 
BHI 3$ 
BIT @RITO9,@8SWR 
BEO 4s 
763: MOV SLPERR,SLPADR 
BR sOVER 
46% CLRB SERFLG 
CLR sTIMES 
BR is 
383 BIT SsBIT11,@8SwWR 
BNE 1s 
TST sPASS 
BEQ 18 
INC sIcNnt 
CMP STIMES,SICNT 
BGE SOVER 
183 Mav 61,8ICNT 
MOV SMXCNT,STIMES 
SSVLAD: INCA STSTNM 


ssCOUNT TEST NUMBERS 


MAINDEC e111 oDERPVeB 
OFFPOVB.PI1 


8533 
8534 
9535 
8536 
6537 
8539 
6539 
8540 


033260 
033264 
033270 
©33274 
033302 
A33310 
033314 
033316 


011667 
011667 
005067 
112767 
016737 
016716 
090902 
AOGAA4 


MACY11 27(732) I8eFER<76 16227 PAGE 161 
SCOPE HANDLER ROUTINE 


145622 
14562a 
145712 
AHAPE1 
145574 
145572 


“OV 
“OV 
CLR 
145613 MOVA 
177570 sOVER: MOV 
MOV 
RTI 
SMXCNT: 4 


(SP),SLPADR s3SAVE SCOPE LOOP ADDRESS 
(SP),SLPEPR s3SAVF ERROR LOOP ANDRESS 
sESCAPF 23CLEAR THE ESCAPE FROM ERROR ADDPESS 
81,SFPMAX s3ONLY ALLOW ONF(1) ER POR ON NEXT TEST 
STSTNM,@8DTSPLAY ¢3DISPLAY TEST NUMAEP 
SLPADR, (SP) s3FUDGE RETURN ADDRESS 

s3FIXES PS 

s3MAX, NUMBER OF ITERATIONS 





MAINDFC*#11°DERPV=B 
DFRPVS,Pit 


6541 
8542 
6543 
8544 
8545 
8546 
8547 
854A 
8549 
6556 
8551 
8552 
8553 
8554 
8555 
8556 
8557 
6558 
8559 
856A 
8561 
856? 
8563 
8564 
8565 
8566 
8567 
8569 
8569 
6578 
8571 
8572 
8573 
8574 
8575 
8576 
8577 
8578 
8579 
8560 
8581 
8582 
8583 
B5R4 
e585 
8586 
8587 
8568 
8569 
8590 
6591 
8592 
8593 
8594 
6595 
6596 


#33320 
#33320 
033322 
033324 
033326 
633330 
033332 
033336 
033342 
33344 
033346 
33354 
033356 
033362 
033366 
033370 
033374 
033376 
033400 
433402 
933404 
033406 
33410 
033412 
933414 
933416 
033420 
433422 
033430 
033434 
033440 
033442 
033444 
033450 
033452 
033454 
033456 
033460 
033462 
033464 
033472 
033474 
033476 


SCOPE 


010046 
910146 
010246 
010346 
010546 
012746 
416695 
100004 
405445 
112766 
aaseoa 
012703 
112723 
405002 
0160A1 
160105 
8824082 
@A5202 
000774 
860105 
005702 
9801002 
195716 
100407 
106316 
103003 
116663 
852702 
052702 
110223 
005720 
920027 
002746 
003002 
010502 
900764 
105726 
1009003 
116663 
105013 
012605 
012603 


MACY11 27(732) 
HANDLER ROUTINE 


0620200 
A90020 
AOAOSS 


033534 
a0ea4a 


033524 


OAANOC1 
A0C060 
000040 


APAALA 


177777 


paeeai 


177777 


177776 


18eFFR°76 


16322 


PAGE 162 





PSSSSSSSHSSSSSSHSSSHSHSSSSHSSSESSSSSHSHSSSSSSHSHSSHSHSHSSSHSSECSESSOCSSSESS 


eSATTL CONVERT BINARY TO PDFCIMAL AND TYPF RO'NTINE 


2@THIS POUTINE TS USFD TO CHANGE A 16eBIT BINARY NUMBER TO A S@DIGIT 


s®SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT, 


DEPENDING ON WHETHER THE 


2®NUMBER IS POSITIVE OR NEGATIVE A SPACF OR A MINUS SIGN WILL BE TYPED 
2#BEFORE THE FIPST DIGIT OF THF NIUMAFP, LEANING ZEROS WILL ALWAYS BF 
s*®REPLACED WITH SPACES, 


s*®CALL: 
34 
3¢ 


STYPDS: 


28: 


383 


68: 
783 


MOV 
TYPOS 


MOV 
MOV 
MOV 


NUM,©(SP) 


RA,-(SP) 
R1,°(SP) 
R2,°(SP) 
R3,°(SP) 
P5,°(SP) 
€20200,°(SP) 
20(SP),R5 

is 

P5 

8°e,1(SP) 

RO 

SSDPLK,R3 

e° ,(R3)¢ 

R2 
SOTAL(R@),R1I 
R1,P5 

4s 


1(SP),01(R3) 
8°A,R2 

#° ,R2 
R2,(R3)¢ 
(RO)¢o 


©1(SP),<-2(R3) 


(R3) 
(SP)¢,R5 
(SP)¢,R3 


:3PUT THE BINARY NUMBEP ON THE STACK 
::G0 TO THE ROUTINE 


73P'ISH R@ ON 
:3PUSH R1 ON 
23PUSH R2 ON 
s3PUSH R3 ON STACK 

:3PUSH RS ON STACK 

23SET BLANK SWITCH AND SIGN 

33GET THE INPUT NUMBER 

33:BR IF INPUT IS POS, 

33MAKE THE RINARY NUMBER POS, 

s:9MAKE THE ASCII NUMBER NEG, 

23ZERO THE CONSTANTS INDEX 

22:SETUP THE OUTPUT POTNTER 

39SET THE FIRST CHARACTER TO A BLANK 
s3CLEAR THE BCD NUMBER 

33GET THE CONSTANT 

s3FOR™ THIS BCD DIGIT 

738R IF DONE 

ss INCREASE THE BCD DIGIT BY 1 


STACK 
STACK 
STACK 


23ADD BACK THE CONSTANT 

33CHECK IF BCD DIGITs@ 

s3F ALL THROUGH IF @ 

:3STILL DOING LEADING 0°S? 

73BP TF YES 

23MSD? 

23BR IF NO 

23YESeeSET THE SIGN 

23MAKEF THE BCD DIGIT ASCII 

23MAKFE IT A SPACE IF NOT ALREADY A DIGIT 
:3PUT THIS CHARACTER IN THE OUTPUT BUFFER 
s3JUST INCREMENTING 

:3:CHECK THE TABLE INDEX 

223G0O DO THE NEXT DIGIT 

23G0 TO EXIT 

:3GET THE LSD 

23G0 CHANGE T9 ASCII 

23WAS THE LSD THE FIRST NONeZERO? 
273BR YF NO 

23YESeeSET THE SIGN FOR TYPING 
:3SET THE TERMINATOR 

23POP STACK INTO RS 

29POP STACK INTO R3 


MAINDEC#11°DERPV-R 
DERPVS Pil 


e597 
8598 
8599 
867A 
B6M1 
8602 
8603 
e604 
8605 
8606 
8607 
8608 
R609 
9614 
8611 
8612 
8613 
0614 
8615 
8616 
8617 
8618 
8619 
8620 
8621 
8622 
8623 
8624 
86275 
8626 
8627 
8678 
6629 
8630 
8631 
8632 
8633 
8634 
8635 
8636 
8637 
8638 
8639 
8649 
8641 
8642 
8643 
8644 
8645 
8646 
8647 
0648 
6649 
8650 
8651 
8652 


033500 
433502 
033504 
833506 
#33512 
033520 
#33522 
033524 
033526 
433530 
#33532 
033534 


033544 
033550 
933552 
033554 
933556 
033560 
033564 
033566 
033570 
033572 
433574 
933600 
033602 
033696 
033619 
033614 
@33616 
033620 
433624 
033626 
033632 
033636 


#12692 
612601 
012600 
194400 
916666 
012616 
A?0002 
023420 
01750 
OMA144 
HAGP12 
00094 


105767 
140002 
040800 
0460407 
010046 
017600 
112046 
001305 
405726 
412600 
062716 
0000802 
122716 
001424 
122716 
001004 
005726 
194400 
000757 
004767 
126726 
401352 


MACY11 27(732) 
CONVERT BINARY TO DFCIMAL AND TYPE ROUTING 


033534 
AAGPO? 


145401 


A882 


800002 
@One0e11 


001215 


A009S2 
145312 


BAPAR4 


1®eFEB<76 16222 PAGE 163 


MOV (SP)o,R2 s3POP STACK INTO RQ 
“OV (SP)¢,R1 :3POP STACK INTO R1 
MOV (SP)o,RA :3POP STACK INTO PQ 
TYPE o SDRUK s3NOW TYPE THE NUMBER 
MoV 2(SP),4(SP) ssANJUST THE STACK 
“OV (SP), (SP) 
RTI 23PFTURN TO USER 
SOTBL: 10000, 
1900, 
190, 
14, 
SDRBLK: ,ALKW 4 


eSATTL TYPE ROUTINE 


s@PROUTINE TO TYPE ASCIZ MESSAGE, MESSAGE “UST TERMINATE WITH A @ BYTE, 
s@THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED, 


s@NOTFI 2 


SNULL CONTAINS THE CHARACTER TO BF 'ISED AS THE FILLER CHARACTER, 
SFILLS CONTAINS THE NUMBER OF FILLFR CHARACTERS PEQUIRED, 


s@NOTE2: 
s@NOTE33 
3@ 
2*CALL?s 
#1) USING A TRAP INSTRUCTION 
:@ TYPF »“ESADR 
2#OR 
3@ TYPE 
78 MFSADP 
se 
#2) USING A JSR INSTRUCTION 
3* MOV PS,-(SP) 
38 JSP PC, STYPE 
2° MESADDR 
STYPE: TSTB STPFLG 
BPL 1s 
HALT 
BR 38 
183 “OV RO,*(SP) 
MOV @2(SP),RA 
283 MOVB (RO)o,"(SP) 
BNE 46 
TST (SP)¢ 
MOV (SP)¢,RO 
38: ADD 92-(SP) 
RTI 
48; CPB sHT,(SP) 
BEQ 6s 
CMPB eCRLF,(SP) 
BNE 5$ 
TST (SP) 
TYPE, sCRLF 
BR 2s 
S$: JSR PC, STYPEC 
683 CPB SFILLC, (SP)+ 


BNE 28 


SFILLC CONTAINS THE CHARACTER TO FILL AFTER, 


ssMESADP TS FIRST ADDPESS OF AN ASCIZ STRING 


:7PUSH PROCESSOR STATUS WORD ON THE STACK 
23CALL TYPE ROUTINE 
::FIRST ADRESS OF MESSAGE 


23:IS THERE A TERMINAL? 
33BR IF YES 
ssHALT HERE 
:3LEAVE 
s3SAVE Re 
3:3GET ANDRESS OF ASCIZ STRING 

2?PUSH CHARACTER TO BE TYPED ONTO STACK 
s3bR IF IT ISN°T THE TERMINATOR 

s3I1F TERMINATOR POP IT OFF THE STACK 
s3RESTORE ROA 

s3:ADJUST RETURN PC 

2 ;RETURN 
:sBRANCH 


IF NO TERMINAL 


If <HT> 


s9BPRANCH IF NOT 


s3POP <CR><LF> EQUIV 

3:3GET NEXT CHARACTER 

73GO TYPE THIS CHARACTER 

ssIS IT TIME FOR FILLER CHARS,? 
ssIF NO GO GET NEXT CHAR, 


MAINDEC*11-DERPV-B 
DERPVB,P1! 
8653 033640 616746 
8654 
8655 033644 105366 
8656 ©33658 482770 
8657 33652 0604767 
8659 433656 00772 
8659 
8660 
8661 
8662 933660 112716 
8663 433664 0804767 
8664 033670 132767 
8665 433676 001372 
8666 733700 495726 
8667 A33702 900730 
8668 0633704 105777 
8669 433710 100375 
867% 633712 116677 
8671 33720 122766 
8672 €@33726 901903 
8673 033730 105067 
8674 33734 90406 
8675 0833736 122766 
8676 33744 802002 
8677 033746 195227 
8678 033750 #98000 
8679 33752 800207 
84680 33754 9800207 
8681 
2682 488200 
8683 Go0ee11 
8684 
8685 
8686 
8687 
868A 
8689 433756 790000 
8690 033760 #800000 
8691 033762 970000 
8692 033764 2800011 
8693 033775 
6694 033776 
8695 
8496 
6697 
8698 
8699 
8700 
8701 
8702 
8703 
8704 033776 @A5067 
8795 A934002 012767 
8706 @3461@ 016767 
8707 834916 012737 
87798 034024 012737 


MACY11 27(732) 
TYPE ROUTINE 


1453¢2 
avreves 


AMPA26 


eearsa 
aaeai4a 
PAG? O7 


145232 


090902 
000015 


G9AR014 


00012 


177784 
033764 
177744 
034046 
0702040 


000952 


145224 
000062 


177750 
177744 
090069 
090062 


1R8eFE ROT 


“MOV 


DECB 
BLT 
JSP 
BR 


783 


sHORTZONTAL TAB 


MOVE 
JSR 
RITA 
BNE 
TST 
BR 
TSTBA 
BPL 
MOVB 
CPB 
BNE 
CLRBA 
BR 
CMPB 
BGE 
INCR 
SCHARCNTs , WORD 
STYPEX: RTS 
RTS 
73 EQUATES 
CRLFs 
HTs 


Tr 
983 


STYPECs 


16:22 PACE 164 


SNULL, (SP) 


1(SP) 

6$° 
PC,STYPEC 
7$ 


PROCESSOR 


#40,(SP) 
PC, STYPEC 
67,8CHARCNT 


sTYPEC 
2(SP),@8TPB 
615,2(SP) 
1$ 
SCHARCNT 
sSTYPEX 
#12,2(SP) 
STYPEX 
(PC) 

a 

pe 

pc 


2390 
11 


SEQ #192 


2:3GFT @ OF FILLER CHARS, 
s3AND THE NULL CHAR, 
2:9D0FS A NULL NEFOD TO BF TYPED? 

23BR TF N%eeGO POP THE NULL OFF OF STACK 
33G0 TYPE A NULL 

ssLOoP 


NEFOFD 


s3PEPLACE TAB WIT SPACE 
s3TYPE A SPACE 

:?BPANCH TF NOT AT 

33 TAR STOP 

2:POP SPACE OFF STACK 

s3GET NEXT CHARACTER 

s3WAIT UNTIL PRINTER TS READY 


33LOAD CHAR TO BE TYPFD INTO DATA REG, 
338PRANCH IF 

:3NOT <CR> 

33 

s9EXIT 

:3BRANCH IF 

23<LF> 

s3INC SPACE 

2;3COUNT 


23<CRO<LF> FQ'IV 
23<HT> 


eSKTTL TTY INPUT ROUTINE 


STKCNT? 
STKOINS 
sTKQOUTS 
STKOSPT: 
STKOENDs, 
»EVEN 


eWOPD 

WORD 
eWORD 
eBLKA 


3@TK INTTIALIZE 


ROUTINE 


ssNUMBER OF ITEMS IN QUEUE 
ssINPUT POINTER 

ssOUTPUT POINTER 

s3TTY KEYBOARD QUEUE 


s®THIS POUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEVE 
2@SETUP THE INTFRRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


$ 

s@CALLs 

3 JSR 

Lad RETURN 

3 

STKINTs CLR 
MOV 
MOV 
MOV 
MOV 


PC,STKINT 


STKCNT 


:sCLEAR COUNT OF ITEMS IN QUEUE 


eSTKQSRT,STKQIN ssMOVE THE STARTING ADDRESS OF THE 


STKOIN, STKQOUT 


s;QUEVE INTO THE INPUT & OUTPUT POINTERS, 


SSTKSRV,@OTKVEC sp; INITIALIZE THE KEYBOARD VECTOR 


8200, @8TKVECS2 


23"BR" LEVEL 4 





MATNDEC#11-DERPV-B 
DEROVR, PII 


8709 
6714 
6711 
8712 
8713 
8714 
6715 
A716 
R717 
8718 
6719 
8720 
8721 
8722 
8723 
8724 
8725 
8726 
8727 
6728 
8729 
873% 
8731 
8732 
8733 
8734 
8735 
8736 
8737 
8738 
8739 
87490 
8741 
8742 
6743 
8744 
6745 
8746 
6747 
6748 
8749 
8750 
8751 
8752 
8753 
6754 
8755 
8756 
8757 
8758 
8759 
8760 
8761 
8762 
8763 
8764 


34032 
A340 
934044 


034046 
034052 
034056 
934962 
934964 
434070 
034074 
934100 
434196 
034110 
034114 
034116 
034120 
034124 
034130 
034134 
034142 
034144 
034152 


034154 
934156 
034164 
034170 
034174 
934200 
#34202 
034206 
034214 
034220 
034226 
034230 
034236 


005777 
012777 
000207 


117746 
#42716 
021627 
001006 
194400 
904767 
000167 
022767 
0019004 
1044300 
905726 
000415 
005267 
112677 
005267 
026727 
001003 
012767 
900002 


011646 
016666 
065066 
095437 
005767 
001775 
005 367 
117766 
095267 
926727 
001003 
012767 
900902 


MACY11 27(732) 
TTY INPUT ROUTINE 


145102 
aeaiar 


145966 
177600 
000003 


034357 
177702 
175076 
000011 


091210 


177632 
177630 
177624 
177620 


933764 


AGB084 
600004 
177776 
177556 


177550 
177550 
177542 
177536 


033764 


145072 


17765¢ 


033775 
177606 


OA0004 
033775 
177524 
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TST @STKA ssCLEAR DONE FLAG 
MOV #179, @STKS ssFRARLF TTY KEYBOARD INTERPUPT 
PTS pe ssRFTURN TO CALLER 


:@TK SEPVICE POUTINE 

s@THIS POUTINFE WILL SEPVICE THE TTY KEYBOARD INTERRUPT 

2@BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 

s*®1T IN THE QUENE, 

2@IF THE CHARACTER IS A “CONTROL@C"® (°C) STKINT IS CALLED AND 

s®UPON RETURN FXIT IS MAKE TO THE "CONTROL@C" RESTART ADDRESS (OPEPSEL) 


3 

STKSRV: MOVAR @STKB,-(SP) s3PICKUP THE CHARACTER 
arc @°C177,(5P) :3:STRIP THE JUNK 
CMP (SP),83 2731S IT A CONTROL C? 
BYE 18 27BRANCH IF NO 
TYPE e8CNTLC s3TYPE A CONTROL@C (°C) 
JSR PC,STKINT s3INIT THE KEYAROARD 
Jp OPEPSEL ssCONTROL C RESTART 

183 cmp 69,,$TKCNT 3391S THE QUEVE FULL? 
BNE 28 s3BRPANCH IF NO 
TYPE eSBELL ¢3RING THE TTY BELL 
TST (SP)¢ 23CLEAN CHARACTER OFF OF STACK 
BR 34s ssEXIT 

28% Inc STKCNT ssCOUNT THIS CHARACTER 
MOVB (SP), @STKOIN s3AND PUT IT IN QUEUE 
INC STKOIN ssUPDATE THE POINTER 
CMP STKQIN, SETKGEND 33GO OFF THE END? 
BNE 38 2:3B8RANCH IF NO 

; MOV @STKOSRT,STKOIN s3RESET THE POINTER 
38% RTI 2 3;RETURN 


FESSOSCSSSSHOSSSHSSSSHSHSSHSOSSSSSOOS SSS HSESSSSTESOTESOSHSEDCOTES 
s@THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 


2 ®CALLs 
3 RDCHR 23GET A CHARACTER FROW THE QUFUE 
rk) RETURN HFRE a3CHARACTER IS ON THE STACK 
3@ ssWITH PARITY BIT STRIPPED OFF 
3 
SRDCHR: MOV (SP),°(SP) 23PUSH DOWN THE PC AND 
MOV 4(SP),2(SP) s3THE PS 
CLR 4(SP) 23GET READY FOR A CHARACTER 
CLR eePs 23ALLOW INTERRUPTS 
183 TST STKCNT s3WAIT ON A CHARACTER 
BEQ is 
DEC STKCNT ssDECREMENT THE COUNTER 
MOVB @STKQOUT,4(SP) 32:GET ONE CHARACTER 
INC sTKOQOUT s3;UPDATE THE POINTER 
cmp STKQOUT, SSTKQEND 33DID IT GO OFF OF THE END? 
BNE 28 3:BRANCH IF NO 
MOV SSTKOSRT,STKQOUT 3;RESET THE POTNTER 
28% RTI 23:RETURN 


PRSSSESSSSSOSSOSSESOSHSSSSSSHSSSSEHHSSSESESSSCHHSSESHESHCHEHOODES 
s*THIS ROUTINE WILL INPUT A STRING FROM THE TTY 

s*®CALL?: 

rh) RDLIN s3INPUT A STRING FROM THE TTY 

) RETUPN HFRE 


23ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 


SEQ 0193 


MAINDEC*#11-°DERPVeR 
DERPVA.P11 


8765 
8766 
8767 
8768 
8769 
a77a 
6771 
8772 
8773 
8774 
8775 
8776 
6777 
6778 
8779 
8780 
8781 
8782 
6783 
8784 
6785 
8786 
6787 
8788 
6789 
8799 
8791 
8792 
8793 
6794 
6795 
8796 
6797 
8798 
8799 
88e0 
88A1 
88A2 
8803 
88n4 
8805 
8806 
6807 
8AOB 
CE) 
8810 
9811 
8812 
8813 
6814 
6815 
8816 
88617 
8618 
8819 
8820 


034240 
034242 
934246 
034252 
034254 
034256 
434260 
934264 
034266 
034272 
034274 
034300 
034304 
O34310 
034312 
034316 
034322 
034324 
034326 
034334 
034342 
034344 
034345 
934346 
034357 


934364 
934366 
034374 
034376 
434400 
934402 
034404 
034406 
434412 
034414 


MACY19 27(732) 


TTY INPUT ROUTINE 


019346 
012793 
022703 
101405 
104412 
112613 
122713 
001903 
104400 
000763 
111367 
144490 
122723 
001356 
195063 
104400 
#12603 
011646 
016666 
012766 
090082 

ane 

000 
A00011 

136 


011646 
016666 
010046 
#19146 
910246 
104414 
012690 
010067 
005001 
805082 


034346 
034357 


000177 
001214 
00044 
34344 
A9OR15 
177777 
001216 


O00704 6080002 
034346 000004 


006503 00012 


800004 899902 


800100 


16 oFER 76 


SPDLINS MOV 
18:3 MOV 
283 cue 
BLOS 
RDOCHRP 
MOVB 
CMPA 
BNE 
TYPE 
BR 
MOVE 
TYPE 
CMPR 
BNE 
CLRAB 
TYPE 
MOV 
“MOV 
“OV 
MOV 
RTI 
BYTE 
BYTE 
oALKB 
eASCIZ 


383 


STTYIN: 
SCNTLCs 


16:22 


PAGE 166 


P3,°(SP) 
SSTTYIN,R3 
SSTTYING9,,P3 
4s 


(SP)¢,(R3) 
6177,(R3) 


(R3),98 
098 : 
#15, (RI)¢ 


(SP)o,R3 
(SP).°(SP) 
4(SP),2(SP) 
OSTTYTIN,4(SP) 


a 

a 

9. 
4°C/€15><12> 


SEQ #194 


::TER“INATOR WILL BE A BYTE OF ALL 9°S 


s3SAVE 83 

::GET ADORESS 

s;BUFFER FULL? 

:3BR IF YES 

23GO REAND ONE CHARACTER FROM THE TTY 
39GFT CHARACTER 

2218 IT A RUBOUT 

:3SKIP IF NOT 

srTYPE A °?° 

$;CLEAR THE BUFFER AND LOOP 
:7ECHO THE CHARACTER 


ssCHECK FOR RETURN 

23LOOP IF NOT RETURN 

seCLEAR RETURN (THE 15) 

s3TYPE A LINE FEED 

ssRESTOPE R3 

ssADJUST THE STACK AND PUT ADDRESS OF THE 
33 FIRST ASCII CHARACTER ON IT 


ssRETURN 
s3STORAGE FOR RSCIT CHAR, TO TYPE 
33 TERMINATOR 
ssRESERVE 9, BYTES FOP TTY INPUT 
ssCONTROL *°C® 

sFROM THE TTY 


eSBTTE READ AN OCTAL NUMBER FROM THE TTY 


s@THIS ROUTINE WILL READ AN OCTAL (ASCII) NUMBER FROM THE TTY AND 
s@CHAWNGE IT TO BINARY, 
s@THE INPUT CHARACTERS WILL BE CHECKED TO INSURED THEY ARE LEGAL 

IF AN ILLEGAL CHARACTER IS READ A *?" WILL BE TYPED 
2@FOLLOWED BY A CARRIAGE RETURNeLINE FEED, THE COMPLETE NUMBER MUST 
s#THEN BE RETYPED, THE INPUT IS TERMINATED BY TYPING A CAPRIAGE RETURN, 


s@OCTAL DIGITS. 


2®CALL?3 

hd RDOCT 

3 RETURN HERE 

3% 

SRDOCTs: MOV (SP),°(SP) 
MOV 4(SP),2(SP) 
MOV PO,°(SP) 
MOV Ri,-(SP) 
MOV R2.°(SP) 

16: RDLIN 
MOV (SP) ¢,RO 
MOV 20,58 
CLR Pi 
CLR R2 


ssREAD AN OCTAL NUMBER 
93LOW ORDER BITS ARE ON TOP OF THE STACK 
s;HIGH ORDER BITS ARE IN SHIOCT 


s3PROVIDE SPACE FOR THE 

ss INPUT NUMBER 

33?PUSH R®@ ON STACK 

?3PUSH Ri ON STACK 

23PUSH R2 ON STACK 

s3READ AN ASCIZ LINE 

33GET ADDRESS OF 1ST CHARACTER 
23AND SAVE IT 

ssCLEAR DATA WORD 





MAINDECo11eDERPV=B 
DEPPVB,PI1 


68721 
8822 
P23 
8R24 
6825 
6826 
8827 
6828 
6829 
8830 
631 
8832 
633 
8R34 
8835 
6R36 
8937 
ee38 
8839 
8R40 
6941 
8842 
8843 
eR44 
6845 
8846 
@R47 
BR48 
8849 


034416 
4344270 
034422 
034426 
034430 
034434 
A34436 
034440 
034442 
934444 
034446 
434450 
834452 
034456 
034460 
934462 
034464 
034478 
034474 
034476 
834500 
A34502 
034504 
034506 
#34510 
934512 
034514 
34520 
034522 


112046 
401420 
122716 
003026 
122716 
902423 
096301 
0061902 
096301 
006182 
006301 
006102 
042716 
062601 
090756 
095726 
410166 
010267 
012602 
012601 
012600 
090002 
005726 
195810 
104400 
800000 
104400 
000730 
400000 


MACY11 27(732) 


18 eFER<76 


OCTAL NUMBER FRO” THE TTY 


000060 
000067 


17777@ 


oe1214 


383 


483 


SHIOCTS 


“OVA 
BEQ 
CPB 
BGT 
CMPB 
ALT 
ASL 
ROL 
ASL 
ROL 
ASL 
ROL 
BIC 
ADD 
BP 
TST 
“OV 
MOV 
MOV 
MOV 
MOV 
RTI 
TST 
CLRB 
TYPE 
WORD 
TYPE 


R 
e#ORD 


16:22 PAGF 167 


CPA)e,e( SP) 


3s 
0°a,(SP) 
4s 
e°7,(SP) 
4s 

Pi 

R?2 

Pi 

R2 

R1 

P2 
e°C7,(SP) 
(SP)¢,Ri 
268 

(SP) 
R1,12(SP) 
R2,SHIOCT 
(SP)¢,R2 
(SP)¢-RI1 
(SP)o,Re 


(SP)¢ 
(RO) 


¢ 
eSQues 
is 

6 


SEQ #195 


s3PICKUP THIS CHARACTFP 
s31F ZERO GET ONT 

:3MAKE SURE THIS CHAPACTER 
:91S AN OCTAL DIGIT 


3302 
3304 
2708 


:3STRIP THE ASCIT J''NK 

s2A0D IN THIS DIGIT 

33LOOP é 

s3CLEAN TERMINATOR FROM STACK 
33SAVE THE RESULT 


23POP STACK INTO R2 

23POP STACK INTO PI 

33PO0P STACK INTO RO 

2 sRETURN 

2:9CLEAN PARTIAL FROM STACK 
29SET A TERMINATOR 

sesTYPE VP THRU THE BAD CHAR, 


3°?" "CR® & "LF® 
s:9TRY AGAIN 
2?HIGH ORDER AITS GO HERE 


MATNDEC S11 eNERPVeB 
DERPPVA. PTI 


Rasy 
Aas! 
ea52 
BRS3 
RRS4 
ass 
RR54 
RRS7 
aasge 
PRSO 
RABE 
8661 
BRHQ 
RRB’ 
REn4 
P2658 
BREE 
BRAT 
Bane 
8269 
8870 
AaT71 
872 
@a73 
RR74 
9875 
BRT46 
8677 
eavea 
ae79 
gaan 
RHA 
RRA? 
BERRY 
ARE 
agAas 
BRE6 
ara? 
ARAB 
RBa9 
BROe 
8A91 
8A92 
R93 
8894 
aags 
RADIO 
9Ra97 
graa 
88699 
8900 
8901 
8902 
8903 
8904 
e9a5 


034574 


034524 
2834574 
34532 


#34532 
34536 
a34540a 
934546 
934554 
934556 
034562 
934566 
034572 
434600 
934606 
034614 
834616 
034622 
034626 
934632 
034634 
434636 
934644 
0346046 
034652 
034656 
934660 
934664 
934664 
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REAM AN OCTAL NUMBEP FROM THE TTY 


17737 


145267 
#A1775 
16737 
32737 
91402 
1°44aa 
005267 
911667 
192767 
117767 
032737 
O71004 
004737 
194400 
005737 
199e@a1 
AA80B0 
#32737 
001402 
016716 
005767 
AG14A2 
016716 


AA0902 


PESESOSP SCS ESTE ETHOS SHEERS SHSSOOEE TESS SESE OESESESEESHEO ODED OCOES 


«SBTTI 


FREROR HANDLER POUTINE 


2@THIS PONTING WILL INCPFMENT THF ERROR FLAG AND THE FRROP TOUNT, 
s®SAVF THE FRPOR ITTF™ NITMBER AND THE ANDRESS OF THE ERPOR CALL 


s*AND GO TO SFRPTYP ON ERROR 


2®THE SwITCH OPTIONS PROVINFD PY THIS ROUTINE ARF? 


s3sERRORSFYT AND NZERPROP ITEM NUMBER 


:SFT FRPOR FLAG 


s3SFT THE ERROR FLAG 
23;DON°T LET THE FLAG GO TO ZERO 


STSTNY,@@DTSPLAY s::DISPLAY TEST NUMRER AND ERROR FLAG 


:3BELL ON ERROR? 

s3NQ © SKIP 

s38ING BELL 

s3;COUNT THE NUMBER OF FRRORS 

29GET ADDRESS OF FRROR INSTRUCTION 


:3STRIP AND SAVE THE ERROR ITEM CODE 
ssSKIP TYPEOUT IF SET 

s3SKIP TYPEOUTS 

:3G9 TO USER ERROR ROUTINE 


s37HALT ON EPPOR 

s3SKIP IF CONTINUE 

ssHALT ON ERROR! 

33LOOP ON FRROR SWITCH SET? 

33;BR IF NO 

:3FUDGE RETURN FOR LOOPING 
s3CHECK FOR AN ESCAPE ADDRESS 
73BR IF NONE 

s3FUDGE RETURN ADDRESS FOR FSCAPE 


2¢SwiSsi KALT ON FRROR 
2®Sw1 321 INHTBIT ERROR TYPFOUTS 
seSwWiost BELL ON ERROR 
28Swaost LOne ON FRROP 
s eC ALL 
3 EPROP N 
SFRROPRS 
PEGSAV: 
177777 046146 “OV #-1,@8FPRFLGS$ 
REGSAI? 
144345 7$3 INCB SFRFLG 
RFQ 7$ 
144336 177570 MOV 
@E2000@ 177570 eTT @PITIA, @8SwR 
REQ is 
091210 TYPF SPELL 
144324 183 Inc SERTTL 
144324 MOV (SP),SERRPC 
@80A02 144316 SUB 82,SEPRPC 
144312 144306 MOVB @SFPRPC,SITEMA 
920000 177570 BIT sBIT13,@9Swr 
BNE 28 
934670 JSR PC, @sSERRTYP 
001215 TYPF eScPLF 
177570 28: TST @tSwR 
BPI 38 
HALT 
071980 177570 3683 RIT sBITA9,@8Swr 
REQ 4s 
144236 MOV SLPEPRP, (SP) 
144330 483 TST SESCAPE 
BEG 58 
144322 MOV SESCAPE, (SP) 
S$: 
PTI 


2; RETURN 


PP OOOOSOOESEOESOSCSEOSSSESESCSSSOSSESESE SO ESSESESEREOSEES 
eSPRTTL ERROR MESSAGE TYPEOUT ROUTINE 
s®THIS ROUTINE USES THE “ITFM CONTROL BYTE*® (SITEMB) TO DETERMINE WHICH 


»*ERROR IS TO BF REPORTED, 


IT THEN OBTAINS, FROM THE "ERROR TABLE® (SERRTB), 


2@AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR, 
s®1T IS A COPY OF THE SERPTYP SUBROUTINE FROM SYSMAC, 


s@WITH ONLY MINOR CHANGES 


s@FIRST IF SWITCH 6 IS SET AND SWITCH 8 RESET THEN 


SFO #196 


MAINDEC©11-DERPV<B MACY11 27(732) I8-FEB<o76 14222 PAGE 169 SEQ 0197 
MERPVB. PII ERROR MESSAGE TYPEOUT ROUTINE 


AAG P@ALL PFGISTEP CONTENTS WILL RE TYPED REFOR REPORTING THE ERROP 
8907 3®SECOND IF THE CURRFT ERROR HAS THE SAME ITEM NUMAER 

A9aR s@AS THF PREVIOUS EPROR THEN ONLY THE DATA WILL RE TYPED 

8909 2®AND NOT THE ERROR MESSAGE AND HEADER, 

#910 034666 aeaee0 PRITE”: © sPREVIOUS ITEM NO, LOCATION 

R911 934670 013746 177570 SERRTYP: “OV @9SWR,-(SP) :GET SWITCH SETTING 

8912 0346074 042716 177277 BIC 0°C500, (SP) :KFEP ONLY SWITCH @ AND 6 

8913 034700 22726 900100 CMP eSW6,(SP)¢ 31S 6 SET AND @ RESET 

8914 834704 @e01901 BNE 18 sIF NOT BRANCH 

8915 034706 9099402 BR 28 sRRANCH IF SW 6 IS SET AND 8 PRESET 
8916 434710 900137 035630 uve @sTYPFRR :JU™P IF SW 6 IS SET 

@917 29R IF SW 8 ITS RESET AND SW 6 IS RESET 
R916 034714 

8919 

8920 934714 104400 934722 TYPE eT | s1TYPF ASCIZ STRING 

8921 034720 990496 BR 648 23GET OVER THE ASCIZ 

8922 23 .ASCI2Z <15><12>/RHWC = / 

8°23 034736 

8924 034736 013746 902242 Mov @ewC, (SP) 2:GET READY TO TYPF RHWC CONTEYTS 
8925 034742 104402 TYPOC 

0926 

R927 

8928 034744 104400 034752 TYPE aT | s9TYPF ASCIZ STRING 

8929 034750 900406 BR 658 :3GET OVER THE ASCIZ 

8930 39 .ASCIZ <15><12>/RHBA = 4 

8931 634766 

8932 034766 013746 072244 MoV @eBA,°(SP) 2:GET READY TO TYPE PHRA CONTENTS 
8933 034772 1404402 TYPOC 

2934 

9935 

8936 @34774 194400 035002 TYPF oe4 g3TYPF ASCIZ STRING 

8937 935000 9790496 PR 668 99GET OVER THE ASCIZ 

8938 82eASCIZ <15><12>/RHCS2 = / 

8939 035016 

8942 035016 913746 002246 MOV @8CS2,°(SP) :GET READY TO TYPE RHCS2 CONTENTS 
A941 835922 104402 TYPOC 

8942 

8943 

8944 935024 104408 035032 TYPE seat 29TYPE ASCIZ STRING 

8945 935030 900406 BR 678 23GET OVER THE ASCIZ 

8946 23.ASCIZ <€15><12>/RHCSi1 = / 

A947 035746 

8946 935946 913746 402250 MoV @eCS1,°(SP) GET READY TO TYPF RHCS1 CONTENTS 
8949 35052 194402 TYPOC 

8950 

8951 

8952 035954 194409 035062 TYPE aT | s3TYPE ASCIZ STPING 

8953 935969 900406 RP 688 33GFT OVER THE ASCIZ 

8954 s2-ASCI2 €15><12>/RHDSi 2s /£ 

8955 635076 

82956 935976 013746 MoV @8DS1,°(SP) 2:GET READY TO TYPE RHDS1 CONTENTS 
8957 0351092 104402 TYPOC 

6956 

8959 

8969 935104 104400 035112 TYPE 204 srTYPE ASCIZ STRING 

8961 835119 9090406 BR 698 39GET OVER THE ASCIZ 





~~ 


esse 
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DERPVA,P11 ERROR MFSSAGE TYPFOUT ROUTINE 

8962 93 .ASCI7 €15><¢12>/@8HER} 32 / 

8963 0351276 6983 

8964 @35126 013746 02252 MOV aerPi,<(SP) GET KEADY TO TYPE PHEP] CONTFNTS 

6965 35132 104402 Typoc 

8966 

8967 

B96R A35134 14440908 035142 TYPE oo0f +3TYPF ASCI?Z STRING 

8969 835149 40406 BR 70$ 39GET OVF® THE ASCIZ 

8970 23.ASCI? <€15>¢€12>/RHER? 2 / 

8971 035156 783 

8972 €35156 413746 02256 “OV @eFP2?,°(SP) 2GET READY TO TYPE PHER? CONTENTS 

6973 35162 1094402 Tyeoc 

R974 

8975 

8976 €@35164 144498 0635172 TYPE oo04 s3TYPE ASCIZ STRING 

@977 835170 920406 PR 718 23GET OVER THE ASCII? 

g9O7R 23-ASCI? <€15><12>/RHER3 = / 

8979 635206 7163 

8980 35206 413746 402264 MOV @eFR3,°(SP) sGFT READY T9 TYPE RHFRP3 CONTENTS 

8981 035212 144402 Ttyeoc 

8982 

8983 

8984 4835214 104400 @35222 TYPE e204 s3TYPE ASCIZ STRING 

8985 035220 030406 AR 728 33GET OVER THE ASCIZ 

8996 29.ASC17 €15>¢€127>/RHDST & / 

R987 435236 7283 

P9FR 35236 613746 02254 MOV @eNST,-(SP) sGET READY TO TYPE RHDST CONTENTS 

89899 835242 144402 TyPpoc 

8990 

6994 

8992 35244 104400 90835252 TYPE eo%4 s3TYPF ASCIZ STRING 

8993 435250 000406 BR 738 33GET OVER THE ASCIZ 

a994g 37.ASCIZ <€15><12>/RHCA 3 / 

8995 635266 7383 

8996 435266 813746 02262 MOV @@CA,-(SP) sGET READY TO TYPE RHCA CONTENTS 

8997 35272 104492 Typoc 

8998 

6999 

992A 035274 1894408 035302 TYPE oe04 ss TYPE ASCIZ STRING 

9401 835300 A90406 BR 748 339GET OVER THE ASCIZ 

9A7A2 23.ASCIZ €15><€12>/RHAS 2 / 

94003 35316 7483 

9204 A€35316 013746 002266 MOV @8AS,°(SP) :GET READY TO TYPE PHAS CONTENTS 

9005 835322 194482 Tyeoc 

9706 

9007 

9308 435324 104400 035332 TYPE eee4 ssTYPE ASCIZ STRING 

9949 635339 600406 BR 758 23GET OVER THE ASCIZ 

9014 33 .ASCIZ <€15><¢€12>/RHOF 2 / 

9911 435346 756: 

9012 635346 013746 90022760 MOV QtOF,-(SP) sGET PEADY TO TYPE RPHOF CONTENTS 

9013 435352 104402 TYPOC 

9014 

92715 

9916 035354 194400 035362 TYPE eee4 s3TYPE ASCI2Z STRING 


9017 835360 690406 BR 768 23GET OVER THE ASCIZ 


MAINDEC #11 -DERPV«-R 
DERPVA P11 


9018 
9019 
9470 
9A21 
9022 
9023 
9024 
9025 
9026 
9077 
9928 
9029 
9030 
9031 
9032 
9033 
9034 
9235 
9036 
9037 
9938 
9039 
9040 
9041 
9042 
9n43 
9744 
9945 
9046 
9047 
9048 
9049 
9450 
9051 
9952 
9053 
9054 
9755 
9056 
9957 
9458 
9”59 
9060 
9061 
9062 
9°63 
9764 
9965 
9966 
9967 
9968 
9969 
9970 
9071 
9972 
9073 


035376 
035376 
035402 


035404 
035419 


#35426 
035426 
03543? 


035434 
035440 


935456 
935456 
035462 


035464 
435470 


435506 
035506 
#35512 


035514 
#35520 


435536 
035536 
035542 


635544 
935550 


435566 
035566 
035572 


035574 
035600 


#35616 
435616 
935622 


#35624 
035639 
035630 


013746 
134402 


104400 
ACA406 


013746 
104402 


194400 
003406 


013746 
104402 


104400 
070406 


013746 
104402 


104400 
000406 


013746 
104482 


104490 
909406 


013746 
194402 


104400 
090406 


013746 
194402 
005937 
104409 
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002770 


035412 


035442 


002304 


035472 


002300 


035522 


002302 


935552 


002274 


035602 


#92276 


034666 
001215 


1A°FEBS76 «8616327 PAGE 171 
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768% 


778: 


7883 


7983 


8283 


TYPERR: 


23 ASCII? €15>¢€12>/RH4MR = / 

Mav @amMR,-(SP) GET PEADY TO TYPF PHMP CONTENTS 
Typoc 

TYPE 0204 s3TYPE ASCI2Z STPING 

BP 778 2:3CGET OVER THE ASCIZ 

23 .ASC1Z <15><12>/RHLA = / 

MOV @SLA,-(SP) 3GET READY TO TYPE RHLA CONTENTS 
TYPOC 

TYPE 024 s3TYPF ASCIZ STPING 

BR 788 33GFET OVER THE ASCIZ 

29.ASC1I7 <15><12>/RHCC = / 

MOV escC,°(SP) sGET PEADY TO TYPE RHCC CONTENTS 
TYPOC 

TYPF 0204 :3TYPF ASCIZ STRING 

BR 798 273GET OVER THE ASCIZ 

23 .ASCIZ <€15><12>/RHEC1 3s / 

MOV @8EC1,-(SP) 2GET READY TO TYPE RHEC! CONTENTS 
TYPOC 

TYPE oet4 s3TYPE ASCIZ STRING 

BR eos 33GET OVER THE ASCIZ 

37 eASCIZ <15><12>/PHEC2 = / 

MOV @8EC2,°( SP) 3GET PEADY TO TYPE RHFC2 CONTENTS 
Typoc 

TYPE 0204 s3TYPE ASCIZ STRING 

BR 61$ 233:GET OVER THE ASCIZ 

23.ASCIZ <15><12>/RHDOT = / 

MOV @eDT,-(SP) GET READY TO TYPE RHDT CONTENTS 
TYPOC 

TYPE oe%4 s3TYPF ASCIZ STRING 

RAR 828 23GET OVER THE ASCIZ 

23 eASCI2 <€15><12>/RHSN 3 / 

MOV @8SN,°(SP) 3:GET READY TO TYPE RHSN CONTENTS 
TYPOC 

CLP @ePRITEM ?*CLEAR PRFVIOUS ERROR ITEM 


TYPE oSCRLF s"CARPTAGE RETURN" & "LINE FEED® 


SEO @199 





MAINDFCo11eDERPV=B 
DFPPVAR P11 


9074 
9975 
9076 
9077 
9978 
9479 
92080 
9081 
9782 
9983 
9084 
9eR5 
9AR6 
9aq7 
908R 
9089 
9090 
9091 
9aQ92 
9093 
9094 
9895 
9496 
9097 
9098 
9099 
91048 
9101 
9102 
9103 
9104 
9105 
916 
9107 
9108 
9109 
9110 
9111 
9112 
9113 
9114 
9115 
9116 
9117 
9118 
9119 
9120 
9121 
9122 
9123 
9124 
9125 
9126 
9127 
9128 
9129 


035634 
9356036 
035640 
935644 


035646 


035652 
035654 
035656 
035660 
#35662 
035664 
435666 
035672 
#35676 
935700 
435702 
035794 
0357190 
035714 
435716 
035720 
035722 
035726 
035732 
635734 
035736 
035740 
035744 
035746 
435750 
#35752 
035754 
035756 
035760 
035762 
035764 
935766 
935766 
435770 
035772 
035774 
035776 
036002 


036004 
036906 
036010 
936012 


010046 
605200 
153700 
001004 


016746 


164402 
900454 
095300 
A%6 360 
096 300 
A806 300 
262700 
920037 
001002 
022020 
900429 
010037 
012067 
01404 
104400 
900000 
104400 
912067 
001404 
164400 
0909860 
194400 
010146 
012001 
001415 
#12000 
105720 
081003 
413146 
194402 
400402 


413146 
104410 
A05711 
001403 
104400 
400764 


012601 
012609 
000207 
920040 
036916 


MACY11 27(732) 


01114 


143244 


001228 
034666 


034666 
OA0004 


#01215 
OnOCH4 


LR oF ER ©76 
ERROR MESSAGE TYPEOUT ROUTINE 


138: 


4S: 


583s 


4$3 


783 


16:22 


MOV 
CUR 
BISB 
BNE 


“OV 


Typoc 
BR 
DEC 
ASL 
ASL 
ASL 
ADD 
cMP 
BNE 
cMpP 
BR 
MOV 
MOV 
BEQ 
TYPE 
2 WORD 
TYPE 
MOV 
BEQ 
TYPE 
e WORD 
TYPE 
MOV 
MOV 
BEQ 
“OV 
TSTB 
BNE 
MOV 
TyYpoce 
BR 


“OV 
TYPDS 
TST 
BEQ 
TYPE 
BR 


“OV 
MOV 
PTS 
eASCI2 
eEVEN 
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RG,°(SP) 

Re 
@sSITEMB, RO 
1$ 


SFPRPC, (SP) 


SSEPRTB,RO 
PO, @ePPITEM 
13s 
(PO7O,(PRO)¢ 
$$ 

RO, @sPRITEM 
(P0)4.26 

38 


0 

o SCRLF 
(RO)O,4S 
58 


) 

oSCRLF 
Ri,°(SP) 
(RO)e,R1 

98 

(RO)O,RO 
(RA) 

7s 
@(P1)¢,°(SP) 


8s 
@(R1)¢,-(SP) 


(R11) 
9$ 
e118 
os 


(SP)¢,R1 
(SP)¢,RO 
pc 

e # 


sSAVE RA 
sPICKUP THE ITEM INDEX 


s1F TTE™M NUMAFR IS ZERO, 

sTYPE THE PC OF THE ERROR 
sSAVE SEPRPC FOR TYPEOUT 

sEPROR ADDRESS 

:GO TYPFe-OCTAL ASCIICALL DIGITS) 
3GET OUT 

sADJUST THE INDEX SO THAT IT WILL 
H WORK FOR THE ERROR TASLE 


JUST 


sFORM TABLE POINTER 

sWAS PREVIOUS ERROR SAMF 
sBRANCH IF NOT 

sPOP PO OVER EM AND DH 


sSAVE NFW ERROR ITEM 

sPICKUP "ERROR Y“ESSAGE" POINTER 
sSKIP TYPEOUT IF NO POINTER 

sTYPE THE "ERROR MESSAGE" 

s*EPROR MESSAGE® POINTER GOFS HERE 
s"CARPIAGE RETURN” & "LINE FEED* 
sPICKUP "DATA HEADER" POINTER 
sSKIP TYPEOUT IF 6 

sTYPE THE °DATA HEADER® 

s"DATA HEADER" POINTER GOES HERE 
s*CARRIAGE RETURN” & “LINE FEFD® 
sSAVE Ri 

sPICKUP “DATA TABLE" POINTER 

:BR IF NO DATA TO BE TYPED 
sPICKUP "DATA FORMAT® POINTER 
s"OCTAL® OR “DECIMAL® 

sBR IF DECIMAL 

:SAVE @(R1)¢ FOR TYPEOUT 

3GO TYPE*-OCTAL ASCIIC(ALL DIGITS) 


sSAVE @(R1)¢ FOR TYPEOUT 

3G0 TYPE--DECIMAL ASCII WITH SIGN 
sIS THERE ANOTHER NUMRER? 

sBR IF NO 

:TYPE TWOC2) SPACES 

:LO0P 


sRESTORE Ri 

:"CARRIAGF RETURN" & "LINE FEFD® 
sRETURN 

:TWO(2) SPACES 


FSSSSSHSSHSSSSSCSSSHSSSSSHHHSHSSCSHSSSSHSSHSESSSSSHSSSSSCSSHSHSECHOEEOOS 
FRSSSSHHSSSHSSSSSSSSSSHSCSHSHSSSSSCSHHSHSHSSSOHSHSCHHSSCHSSHSSSEHSESCHEEEORS 
FHESSSSSSHSSSHSSSSHSSSCSSHHHSSHSHSHSSHSHHSHHCSSSESHSSCHHSSSS ESSE ESOOES 


eSATTL BINARY TO OCTAL (ASCII) AND TYPF 


MAINDFC*11°DERPVeR 
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9130 
9131 

9132 
9133 
9134 
9135 
9136 
9137 
9138 
9139 
9149 
9141 

9142 
9143 
9144 
9145 
9146 
9147 
9148 
9149 
9152 
9151 
9152 
9153 
9154 
9155 
9156 
9157 
9158 
9159 
9160 
9141 

9162 
9163 
9164 
9165 
9166 
9167 
9168 
9169 
9170 
9171 

917? 
9173 
9174 
9175 
9176 
9177 
9178 
9179 
9180 
9181 

9182 
9183 
9184 
9185 


936016 
436022 
036030 
936034 
936940 
036942 
036050 
36056 
436064 
936966 
036070 
#36072 
436076 
036100 
036164 
036119 
036114 
036120 
036122 
036124 
036126 
836130 
436132 
036134 
436136 
036140 
036144 
036146 
036152 
036154 
036156 
036160 
936162 


BINARY TO OCTAL (ASCIT) 


017646 
116667 
112667 
062716 
009406 
112767 
112767 
112767 
010346 
010446 
010546 
116704 
AA5404 
062704 
110467 
116704 
016605 
005003 
986105 
000404 
0061905 
006105 
696105 
010503 
006193 
105367 
100016 
042703 
#91002 
005704 
001403 
095204 
052703 
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a0en00 
OA0001 
090207 
O40782 


000086 
000005 


890145 
070006 
000132 


900125 
9ABO12 


A9O976 


177779 


000211 


000171 
070165 
000154 


{RoFERe 76 
AND TYPF 


16:2? 


PAGE 173 


s@THIS POUTINE TS SEP TO CHANGE A 16eBIT BINARY NIMBEP TO A 6eDIGIT 
(ASCII) NUMBFR AND TYPE IT, 
2*STYPOSeesENTER HFRE TO SETUP SUPPRESS ZEROS AND NUMRER OF DIGITS TO TYPE 


2 ®OCTAL 


s@CALLs 


NUM, (SP) 


ssNUMRFR TO RE TYPED 
ssCALL FOR TYPEOUT 
:3N21 TO 6 FOR NIMMBER OF DIGITS TO TYPE 
3421 OR @ 
:912TYPE LEADING ZEROS 
2;@2SUPPRESS LEADING ZEROS 


2@STYPONeserENTER HERF TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
s®STYPOS OR sTYPOC 


s®CALLs 


MOV 
TYPON 


NUM,e(SP) 


ssNUMBER TO RE TYPED 
ssCALL FOR TYPEOUT 


s®STYPOCeerENTER HERF FOR TYPEONT OF A 16 BIT NUMBER 


s@CALL?: 
3° 
36 


STYPOS: 


STYPOC: 


STYPON: 


MOV 
TYPOC 


MOV 
MOVB 
MOVB 
ADD 
BR 
MOVB 
MOVB 
MOVB 
MOV 
MOV 
MOV 
MOVA 
NEG 
ADD 
MOVB 
MOVB 
MOV 
CLR 
ROL 
BR 
ROL 
ROL 
POL 
MOV 
ROL 
DECB 
BPL 
RIC 
BNE 
TST 
BFQ 
Inc 
BIS 


NUM, -(SP) 


@(SP),°(SP) 


1(SP),8@FILL 
(SP), SOMODES! 


#2.(SP) 
STYPON 
#1,80FILL 
66,80M0DES1 
#5,sOCNT 
R3,°(SP) 
R4,°( SP) 
R5,°(SP) 
SOMODE+1,R4 
R4 

66,P4 
R4,S0MO0DE 
SOFILL,R4 
12(SP),R5 
R3 


s:NUMBER TO RE TYPED 
ssCALL FOR TYPEOUT 


s3PICKUP THE “ODE 

ssLOAD ZERO FILL SWITCH 
ssNUMBER OF DIGITS TO TYPE 
ssADJUST RETURN ADDRESS 


2:SET THE ZERO FILL SWITCH 

23SET FOR SIX(6) OIGITS 

23S°T THE ITERATION COUNT 

:9SAVE RJ 

s3SAVF R4@ 

23SAVE R5 

2:3GET THE NUMARER OF DIGITS TO TYPE 


s::SUBTRACT IT FOR MAX, ALLOWED 
23SAVE IT FOR USE 

23:GET THE ZERO FILL SWITCH 
:3PICKUP THE INPUT NUMBER 
ss3CLEAR THE OUTPUT WORD 
s:sROTATE MSB INTO *C* 

23:GO DO “SB 

s3FORM THIS DIGIT 


:3GET LSB OF THIS DIGIT 
s3TYPE THIS DIGIT? 

273BR IF NO 

23:GET RID OF JUNK 

2:3TEST FOR @ 

:3SUPPRESS THIS @? 

273BR IF YES 

23DON°T SUPPRESS ANYMORE @°S 
:3MAKE THIS DIGIT ASCII 


SEQ 4201 


MAINDFC<11-DERPV9R 
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9166 
9187 
9128 
91#9 
919¢ 
9191 
9192 
9193 
9194 
9195 
9196 
9197 
9198 
9199 
9700 
9201 
9202 
9203 
9204 


036166 
036172 
#36176 
036202 
436206 
036212 
@36212 
936214 
036216 
036220 
036222 
036224 
036232 
036234 
036736 
036237 
036240 
936241 
936242 


BINARY TO OCTAL (ASCII) 


052703 
110367 
104490 
105367 
003347 
002402 
005204 
000744 
812605 
012604 
012603 
016666 
412616 
840002 

889 

aea 

909 

eve 
490000 


MACY11 27(732) 


eoee4e 
anea4ge 
436236 
070032 


AO0082 


OOVAARE 


18eFER©7 
AND TYPF 


S$: 


7$3 


SOCNTS 
SOFILL? 
SOMODE? 


6 16:22 PAGE 174 


BIS 
MOVA 


PTI 

eBYTE 
oBYTE 
oBYTE 
BYTE 
«WORD 


a° ,R3 
P3,48 

o?S 

SOCNT 

26 

6$ 

R4 

28 
(SP)¢,R5 
(SP)¢.R4 
(SP)o,R3 
2(SP),4(SP) 
(SP)¢.(SP) 


s3MAKF ASCII (TF NOT ALREADY 
:3SAVF FOR TYPING 

3:GO TYPE THIS DIGIT 

ssCOUNT PY 1 

273BR IF “ORF TO DO 

s3BR TF DONE 

ss INSURF LAST DIGIT ISN’T A BLANK 
3:GO DO THE LAST DIGIT 
ssPFSTOPE RS 

S2PESTORE RG 

t?RESTORE R3 

33SFT THE STACK FOR RFTURNING 


ts RETURN 

3STOPAGE FOR ASCII DIGIT 
ssTFERMINATORP FOR TYPE ROUTINE 
s2:OCTAL DIGIT COUNTER 

23ZFRO FILL SwITCH 

ssNUMBEP OF DIGITS TO TYPF 


SEQ 0202 


~ 


0 Nee aS. 


MAINDEC C11 eDERPV=B MACY11 27(737) 18eFEFB-76 16:27 PAG® 175 SEQ 4203 
DERPVE.PI1 BINARY TO OCTAL (ASCII) AND TYPE ‘ 
9205 MET T ITI IIIT iiiii iy) 
92¢6 
9207 eSBTTL TRAP DECODER 
9708 
9209 2®THIS POUTINE WILL PICKIIP THE LOWER BYTE OF THE "TRAP" INSTRIICTION 
9210 2@AND USE IT TO INDEX THROUGH THE TRAP TABLF FOR THE STARTING ADDRESS 
9211 2e0OF THE DESTPED ROUTINE, THEN USING THE ADDRESS OBTAINED IT WILL 
9212 2#GO0 TO THAT ROUTINE, 
9213 
9214 036744 810946 STRAP: MOV RO,°(SP) s3SAVF Re 
9715 %36246 016600 999002 voV 2(SP),RA 33GET TRAP ADPRFESS 
9216 736252 005740 TST @( RA} 2:3BACKUP BY 2 
9217 036254 111000 “OVB (RA),RO 33GET RIGHT BYTE OF TRAP 
9718 036256 016000 436764 MOV STPPAD(RA),RA s3INDFX TO TABLE 
92719 36262 9nA200 RTS RA 3360 TO ROUTINE 
922¢ 
9221 
9222 eSBTTL TRAP TAALE 
9223 
92724 :*THIS TARLE CONTAINS THE STARTING ADDRESSES 9F THE ROUTINES CALLED 
9225 s#RBY THE "“TRAP® INSTRUCTION, 
9726 
9227 : ROUTINE 
9728 ? ane eu e 
9229 @3626%4% STRPADs: 
923% 36264 833544 STYPE ssCALLsTYPE TRAP*O(104400) TTY TYPEOUT ROUTINE 
9231 36266 836042 sTYPOC s3CALLaTYPOC TRAP*2(104492) TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
9232 36270 36016 STYPOS s:;CALLsTYPOS TRAP*4(104404) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
9233 036272 36056 STYPON s3CALLsTYPON TRAP+6(104406) TYPE OCTAL NUMBER (AS PER LAST CALL) 
9734 A€36274 033320 STYPDS ;:;CALL#TYPDS TRAP410(104410) TYPE DECIMAL NUMBER (WITH SIGN) 
9235 036276 034154 SRDCHR s3CALL#RDCHR TRAP412(194412) TTY TYPEIN CHARACTER ROUTINE 
9236 836300 034240 SRPDLIN #3CALLZSRDLIN TRAPO14(104414) TTY TYPEIN STPING ROUTINE 
9237 036302 034364 SRDOCT ssCALLaRDOCT TRAP016(194416) READ AN OCTAL NUMBER FROM TTY 
9238 A36304 a30552 WAIT.T s3CALLSWAT TRAP*20(104422) DONT ADP ABOVE THIS TRAP 
9239 
9249 


9241 





MAINDFCo1 1 -DERPVoR 
DFRPVE.P11 


9242 
9243 
9244 
9245 
9246 
9247 
9248 
9249 
9250 
9251 
9252 
9253 
9254 
9255 
92756 
9257 
9258 
9259 
9260 
9261 
9262 
9263 
9264 
9265 
9266 
9267 
9268 
9269 
9270 
9271 
9772 
9273 
9274 
9275 
9276 
9277 
9278 
9779 
9280 
921 
9262 
9283 


026 306 
936314 
#36322 
936324 
#36326 
936330 
836332 
436334 
036336 
036342 
936350 
036352 


936354 
936360 
036364 
036370 
036372 
936374 
036376 
936400 
436402 
036404 
936406 
036414 
036422 
936424 
036426 
436430 
036432 
336434 
436436 
936440 
936442 
936450 


012737 
012737 
010046 
#10146 
010246 
910346 
019446 
010546 
010667 
012737 
Aoaa0e 
000776 


016706 
005967 
005267 
901375 
012695 
012604 
012603 
012602 
012601 
012600 
012737 
012737 
104400 
036442 
@12716 
004666 
AAAGA2 
900000 
000776 
860000 
a9se0i5 
000122 


MACY11 27(732) 
TRAP TABLE 


036434 
AAG340 


AAAN76 
036354 


000060 
ARPES4 
aoeasa 


036306 
000340 


447520 


AAOH24 
@4@A26 


BPCH24 


APAP24 
000026 


042527 


1AeFFRO76 


16:22 PAGF 176 


eSRTTL 


POWER DOWN ROUTINE 
@SILLUP,@@PWRVEC 33SET FOP FAST UP 
8340, @8PWRVECe? ¢3PRPIO:7 


SPWPDN: MOV 
MOV 
“OV 
MOV 
MOV 
voV 
“OV 
MOV 
“OV 
“OV 
HALT 
BR 


sPOWER UP ROUTINE 


SPWRUP: MOV 
CLR 
183 INC 
BNE 
MoV 
MoV 
Mnv 
MOV 
MOV 
MOV 
Mov 
MOV 
TYPE 
SPWRMG: ,WORD 
MOV 
SPWRAD: ,WORD 
RTI 
SILLUP: HALT 
BR 
SSAVR6: 0 
SPOWER: ,ASCIZ 


oEVEN 


POWER DOWN AND "UP ROUTINES 


PA,-(SP) 22P'SH RA ON STACK 
Ri,°(SP) s3PUSH R1 ON STACK 
P2,°(SP) ::PUSH ®2 ON STACK 
P3,°(SP) :3PUSH P33 ON STACK 
R4,-(SP) 23PUSH P4 ON STACF 
R5,°(SP) ¢:PllSH BPS ON STACK 
SP,SSAVR6 :3:SAVF SP 
SSPWRUP,@O@PWRVEC 33SET "IP VECTOR 
0°? 23HANG UP 

SSAVR46,SP :3:GET SP 

SSAVP6 s;WAIT LOOP FOR THE TTY 
SSAVR6 ssWAIT FOR THE INC 
1s 230F wORD 

(SP)¢,R5 :3P9P STACK INTO RS 
(SP)@,R4 s3POP STACK INTO RG 
(SP)o,P3 s3POP STACK INTO R3 
(SP)¢,R2 :3:POP STACK INTO R2 
(SP)o,R1 :3POP STACK INTO Pi 
(SP)¢,R9 23POP STACK INTO RO 


@SPWRON,@SPWRVEC 33SET UP THE POWFR DOWN VECTOR 
0340,S9PWRVEC*2 3 3PPIO7 


SPOWER 


(PC), (SP) 


BEGIN 


072 


<€15><12>"POWER® 


sPEPORT THE POWER FAILURE 
s3POWFR FAIL MESSAGE POINTEP 
s;PESTART AT REGIN 

ssRESTART ADDRESS 


s3:THE POWER UP SEFOUFNCE WAS STARTED 
33 BEFORE THE POWER DOWN WAS COMPLETE 
:3PUT THE SP HERE 


SEQ 0204 


MAINDEC*11°DEPPV-R 
DERPVE P11 


9784 
9285 
9286 
9287 
9288 
92A9 
9292 
9291 
9292 
9293 
9294 
9295 
9296 
9297 
9298 
9299 
9300 
9301 
9302 
9303 
9304 
9305 
9396 
9307 
9308 
9309 
931A 
9311 
9312 
9313 
9314 
9315 
9316 
9317 
9318 
9319 
9322 
9321 
9322 
9323 
9324 
9325 
9326 
9327 
9328 
9329 
9339 
9331 
9332 
9333 
9334 
9335 
9336 
9337 
9338 
9339 


436452 
036460 
36466 
036474 
436501 
036506 
036514 
036522 
036530 
036536 
036544 
436552 
036560 
036566 
036570 
036576 
936604 
036612 
36620 
936626 
036634 
036642 
036650 
436651 
936656 
036664 
036672 
036700 
936706 
036714 
036722 
036730 
036736 
036744 
036752 
036760 
036766 
036774 
437002 
037010 
0372916 
@37A24 
037032 
037040 
37046 
037054 
037062 


POWER DOWN 


@50122 
42111 
044449 
052522 

111 
052522 
040516 
044502 
047127 
042440 
042524 
020124 
047516 
090124 
050122 
a42iii 
044440 
052522 
0425190 
042520 
041040 
942111 

9090 

105 
042524 
022124 
442523 
020124 
344440 
042449 
052040 
047111 
044515 
941595 
044503 
044122 
042517 
020124 
020122 
053117 
O47111 
047440 
047514 
020107 
820061 
046101 
#52111 


MACY11 27(732) 


932960 
0472940 
052116 
952120 
52116 
052120 
046102 
020124 
041740 
050130 
020104 
044506 
020124 


a32060 
047040 
052116 
052120 
620116 
0£2103 
@S52111 
051440 


950130 
020104 
444504 
020124 
044524 
020123 
051122 
946511 
030440 
051103 
020056 
040515 
051501 
020123 
046103 
054502 
047111 
040440 
042516 
042101 
44122 
047506 
020114 
920123 


042740 
a52117 
051105 

ene 
051105 
042440 
020105 
047504 
052125 
641505 
044502 
020104 
042523 


042040 
052117 
051105 
053440 
054105 
042105 
042040 
052105 


041545 
@44502 
020104 
052502 
042515 
947111 
51117 
020105 
@29060 
051517 
042504 
000114 
042040 
047516 
840545 
946449 
020107 
046114 
900123 
047111 
051105 
020122 
947125 
044504 
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AND UP ROUTINES 


3 
sERPOP AND MESSAGE TABLE CONDIMENTS 


FSSSSSSSSSSSSSSSSESESESEHHSSHSSHHSSHESHSSCHSSSSHOSHSSHSSESESSHOHSHCEESESSSEEE 


Evi: 


FM2: 


EM43 


EMS; 


EM63 


eASCIZ /RPP4 DID NOT INTERRIPTS 


eASCIZ /INTEPRUPT ENABLE BIT DOWN BUT FXPECTED AIT DID NOT SET/ 


eASCIZ /RPO4 DID NOT INTERPUPT WHEN EXPECTED BIT DID SET/ 


eASCIZ /EXPECTED BIT DID SET BUT TIME IS IN ERROR TIME IN 16 MICROSEC, DECIMAL/ 


eASCIZ /RHAS DOES NOT CLEAR BY MOVING IN ALL ONES/ 


eASCIZ /LOADING RHERI FOR ALL UNITS DIM NOT SET ANY PHAS BITS/ 


r 


MAINDEC*11°DERPV<-B MACY11 27(732) 18eFER°76 16322 PAGE 178 SEQ 0206 
DFRPVS.P11 POWER DOWN AND UP ROUTINES 


9349 37070 820104 847516 020124 
9341 437976 042523 20124 847141 
9342 037104 920131 444122 051501 
9343 37112 841940 52111 607123 
9344 637122 @50123 041505 43111 FM7s eASCI7 /SPECIFIFD REGISTER NON FKISTANT, SO ABORT PROGPAM/ 
9345 037126 042511 20104 842522 
9346 037134 044507 652123 4511045 
9347 637142 647040 647117 0842440 
9346 37150 0644539 052123 047101 
9349 37156 0626124 051440 620117 
9350 37164 41101 @51117 020124 
9351 037172 @51124 043517 049522 
9352 937200 800115 

9353 037202 952123 @50117 642520 FM1e: eASCIZ /STOPPED DRIVE HAS MOL BIT IN RHNS1 SET/ 
9354 837210 920104 51104 0653111 
9355 637216 820195 840510 0620123 
9356 @37224 947515 620114 44502 
9357 #37232 820124 47111 051940 
9358 037240 642119 030523 051440 
9359 037246 052105 000 

9360 037251 127 @S2111 620110 EM1i1is: eASCIZ /WITH SPINDLE POWERED DOWN PHCS2 SHOULD ONLY HAVE UNIT “Os AND IR SET/ 
9361 837256 50123 47111 846104 
9362 637264 820105 047520 642527 
9363 @37272 642522 020104 047504 
9364 037300 047127 051040 641510 
9365 037306 031123 @51440 947510 
9366 837314 @46125 020104 47117 
9367 037322 054514 444940 053101 
9368 37330 920105 47125 52111 
9369 37336 047040 035117 640440 
9370 937344 8042116 644440 620122 
9371 037352 642523 000124 

9372 037356 043101 42524 620122 E¥1?: eASCIZ /AFTER SPINDLE POWEPED UP, YO PACK ACKN, RHDS1 SHOULD HAVE MOL®1, VV#8@/ 
9373 0637364 050123 947111 046104 
9374 037372 820105 0647520 42527 
9375 03.7300 847522 20104 2850125 
9376 037406 0620054 47516 950040 
9377 037414 041501 020113 041501 
9378 037422 647113 020056 44122 
9379 37430 051564 820761 044123 
9380 037436 452517 042114 044040 
9381 0837444 053191 820105 047515 
9382 37452 036514 676761 #530490 
9383 @37460 836526 900069 

9304 037464 0644527 844124 951440 EM13: eASCIZ /WITH SPINDLE POWERED, “© INTIALIZE, RHCS1 SHOULD HAVE GOs@, DVAsi, RDYs 
9365 @37472 044529 642116 042514 
9386 837500 050940 053517 0651195 
9387 37506 042105 620054 047516 
93688 837514 044440 0652116 040511 
9399 037522 044514 042532 020054 
939A @37539 44122 051503 0620061 
9391 437536 044123 052517 942114 
9392 037544 044040 0653101 020105 
9393 037552 047507 630075 620954 
9394 037560 053194 436501 26061 
9395 37566 051048 954504 430475 


aaa eam 


9396 
9397 
9398 
9399 
9409” 
9401 
9402 
9403 
9404 
9405 
9496 
9407 
9408 
9409 
9410 
9411 
9412 
9413 
9414 
9415 
9416 
9417 
9418 
9419 
94270 
9421 
9422 
9423 
9424 
9425 
9426 
9427 
9428 
9479 
9430 
9431 
9432 
9433 
9434 
9435 
9436 
9437 
9438 
9439 
9440 
9441 
9442 
9443 
9444 
9445 
9446 
9447 
9448 
9449 
9459 
9451 


@37574 
037602 
37603 
437610 
437616 
037624 
037632 
037640 
037646 
037654 
#37655 
037662 
037670 
237676 
037704 
037712 
037720 
437726 
037727 
937734 
037742 
037750 
037756 
037764 
037772 
049000 
40006 
040014 
940016 
A40024 
940032 
940040 
40046 
040054 
40055 
640062 
040070 
040076 
040104 
40112 
440120 
040126 
040134 
040142 
940144 
#40152 
040160 
040166 
940174 
040202 
040210 
040711 
440216 
040224 
640232 
949249 
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020054 
000 
101 

051449 

042514 

051105 

@20120 

051440 

420104 
00a 
120 

041501 

042514 

047503 

720104 

042185 

#511905 
G12 
107 

640504 

620123 

042522 

040515 

042522 

040524 

043101 

047503 

000104 

047516 

047503 

026104 

642105 

51195 
812 
107 

040504 

620123 

642522 

440515 

442522 

040524 

443101 

647503 

000104 

051104 

0461903 

047503 

020104 

042105 

051105 
012 
107 

040504 

@53111 

047519 

042502 


MACY11 27(732) 
POWER DOWN AND UP POUTINES 


#42511 


052106 
044520 
aseadea 
042105 
044122 
047510 
042502 


041501 
047113 
643504 
046515 
040503 
040440 
047522 


047517 
040524 
042502 
041440 
042116 
020103 
044440 
042524 
046515 


047455 
046515 
040503 
040440 
047522 


047517 
040524 
042502 
041440 
042116 
020103 
044440 
042524 
046515 


@S53111 
040505 
046515 
440503 
040440 
047522 


047517 
040524 
051505 
046125 
020054 


830075 


051105 
@42116 
$3517 
052440 
41503 
046125 
030075 


020113 
0$3517 
020105 
047101 
951525 
020116 
096522 


020104 
044449 
047506 
046517 
020054 
040504 
020123 
@20122 
047101 


020120 
047101 
051525 
020116 
606522 


020104 
044440 
047506 
046517 
020054 
040504 
020123 
020122 
047101 


020195 
920122 
@47101 
051525 
020116 
006522 


020104 
043440 
051440 
020104 
042522 
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EmM143 oASCIZ 


Eviss eASCTI 


eASCIZ 


EM163% eASCIT 


eASCIZ 


EM473 eASCII 


oASCIZ 


/AFTER SPINDLE POWERED VP RHCOC SHOULD BEsas 


/PACK ACKNOWLEDGE COMMAYD CAUSED AN ERROR/<15><12> 


7GOOD DATA IS BEFORE COMMAND, REC DATA IS AFTER COMMAND/ 


4NO*OP COMMAND CAUSED AN FRROR/<15><12> 


/GOOD DATA IS BEFORE COMMAND, RFC DATA IS AFTER COMMAND/ 


/ORIVE CLEAR CO“MAND CAUSED AN ERROR/<15><12> 


/GOOD DATA GIVES SHOULD BE, REC DATA GIVES AFTER COMMAND/ 


MAINDEC $11 -DERPVOB 
DERPV® P11 


9452 
9453 
9454 
9455 
9456 
9457 
9458 
9459 
9460 
9461 
9462 
9463 
9164 
9465 
9466 
9467 
9468 
9469 
9470 
9471 
9472 
9473 
9474 
9475 
9476 
9477 


9478. 


9479 
9489 
9481 
9482 
94863 
9484 
9485 
9486 
9407 
9468 
9489 
9490 
9491 
9492 
9493 
9494 
9495 
9496 
9497 
9498 
9499 
9500 
9501 
9502 
953 
9504 
95205 
956 
9507 


040246 
40254 
040262 
940270 
049276 
40301 
940306 
940314 
040322 
040330 
047336 
040342 
040350 
949356 
40364 
040372 
040400 
940406 
040414 
940422 
040430 
040436 
940444 
40450 
940456 
040464 
040472 
640500 
40506 
040514 
940522 
940523 
040530 
940536 
040544 
040552 
040560 
040566 
040574 
40576 
940604 
640612 
840620 
#40626 
040634 
040636 
040644 
049652 
40660 
949666 
040674 
040792 
940710 
40716 
040724 
040732 


MaACY11 


POWER DOWN AND 


020103 


043440 


040449 
04144” 
042116 

122 
o4a7111 
040515 
052501 
047101 
@51117 
647507 
052101 
#42526 
052517 
0261065 
042940 
044587 
042522 
047117 
020123 
020122 
047101 
044122 
847503 
051524 
47111 
046515 
040527 
042442 

000 

122 
041440 
052116 
044522 
046517 
053440 
@20116 
#00122 
947125 
041440 
042116 
042523 
942440 
905015 
047507 
9$2101 
042526 
$2517 
026105 
042040 
9445907 
442522 
#51105 
027124 
051105 


040504 
$3111 
52196 
946517 

#00 
040505 
041440 
042116 
042523 
042440 
095015 
042117 
020101 
920123 
042114 
051040 
052101 
042526 
027107 
042524 
043101 
047503 
790104 
“51503 
052116 
042040 
020107 
047101 
020123 
451122 


042110 
047117 
#20123 
043516 
040515 
951501 
051105 


047514 
046517 
041440 
020104 
#51122 


042117 
020101 
020123 
042114 
0310940 
052101 
042526 
044507 
041440 
040440 
041440 


27(732) 


040524 
051505 
651105 
040515 


026504 
046517 
041440 
020104 
#51122 


042040 
044507 
044123 
041040 
041505 
#20101 
020123 
041440 
@52116 
042524 
046515 


020061 
647105 
051125 
047503 
020104 
@47111 
@51117 


030523 
042524 
052504 
041440 
042116 
044440 
647522 


042101 
040515 
052501 
047101 
@51117 


042040 
044507 
944123 
041040 
041505 
020101 
#20123 
052123 
@47117 
052196 
#46517 


18eFERe76 162327 PAGE 180 : SEQ 6208 
UP ROUTINES 


EM20: 


EM22% 


FM23% 


eASCIT /8EAD@IN COMMAND CAUSED AN wine nly Saini 


~ 


eASCI?Z? /GOOD DATA GIVES SHOUTD AF, PFC DATA GIVES PEG, CONTENTS AFTER COMMAND/ 


eASCIZ /RHCS1 CONTFNTS DURING COMMAND WAS IN ERROR/ 


eASCIZ /PHDS1 CONTENTS DURING COMMAND WAS IN ERROR/ 


eASCII /UNLOAD COMMAND CAUSED AN ERROR/<15><12> 


eASCTZ /GOOD DATA GIVFS SHOULD BE, PFC DATA GIVES REGISTER CONT, AFTER COMMAND/ 


EE te 


MAINDECe1 1 -DERP VOR 
DERPVS P11 


9508 
9509 
9519 
9511 
9512 
9513 
9514 
9515 
9516 
9517 
9518 
9519 
9529 
9521 
9522 
95372 
9524 
9575 
9526 
9527 
9528 
9529 
9534 
9531 
9532 
9533 
9534 
9535 
9536 
9537 
9538 
9539 
9540 
9541 
9542 
9543 
9544 
9545 
9546 
9547 
9548 
9549 
9559 
9551 
9552 
9553 
9554 
9555 
9556 
9557 
9558 
9559 
9569 
9561 
9562 
9563 


40740 
40745 
40752 
A40760 
040766 
940774 
41702 
A41905 
41012 
841920 
441976 
41034 
941442 
041950 
041056 
941064 
441072 
941190 
441196 
41110 
41116 
941124 
041132 
041140 
041146 
041154 
941162 
041167 
041174 
941202 
41210 
#41216 
041224 
041232 
A41249 
941246 
041254 
041262 
041270 
941272 
941300 
941306 
041314 
@41322 
#41330 
941336 
041344 
441352 
041360 
0413627 
041370 
041376 
041404 
941412 
#41420 
041426 


940515 

117 
#20124 
47101 
#51525 
O2A116 
006522 

107 
49504 
@53111 
047519 
A42502 
420103 
0463449 
a5104a 
847533 
043101 
047533 
A90194 
942522 
452040 
052116 
m4a7iii 
946515 
A40503 
9740442 
047522 

107 
940504 
OS3111 
047519 
042582 
420103 
043440 
#51040 
047503 
043191 
047503 
000104 
930965 
#51596 
#46517 
820123 
043101 
944124 
0425198 
051525 
#20116 
000122 
051127 
042510 
940440 
052101 
051525 
050115 
920122 


MACY11 27(€732) 


42116 
043196 
A475O03 
20104 
942105 
@51145 

#12 
0467517 
40574 
051505 
#46125 
020054 
e40se4 
53111 
043505 
@52116 
042524 
046515 


052524 
#20117 
051105 
#20105 
047101 
451525 
020116 
#06522 
047517 
040524 
051505 
046125 
020054 
040504 
$3111 
043505 
052116 
042524 
46515 


020060 
052105 
440515 
#47317 
042524 
020105 
020122 
042195 
051105 


oS2111 
042101 
042116 
#20101 
042105 
047522 
042522 


eae 
#42523 
746515 
40503 
e4e44ae 
#47522 


020104 
043440 
051440 
#20104 
042522 
049524 
#51505 
020056 
@20056 
020122 
047101 


047122 


042503 
046040 
047503 
020104 
942105 
051105 

#12 
020104 
043440 
051440 
020104 
042522 
040524 
051505 
020056 
020056 
020122 
047101 


043117 
041440 
042116 
020105 
020122 
052117 
040503 
040440 
047522 


051105 
042040 
040503 
44440 
042520 
044507 


EM243 


EM253 


Fv263 


EM273 





1S8eFER©76 8162272 PAGE 181 SEQ 4209 
POWFR DOWN AND UP ROUTINES ‘ 


eASCTT /OFFSFT COMMAND CAUSED AN FRROR/<€15><12> 


eASCIZ /GOOD DATA GIVFS SHOULD AF, REC DATA GIVES REG, CONT, AFTFR COMMAND/ 


eASCIT /PETURN TO CENTER LINE COMMAND CAUSED AN FRROR/<15><€12> 


e4SCIZ /GOOD DATA GIVES SHOULD BE, REC DATA GIVFS REG. CONT, AFTER COMMAND/ 


eASCIZ /50@ OFFSET COMMANDS ONE AFTER THE OTHER CAUSED AN ERROR/ 


eASCIT /WRITE HEADER AND DATA CAUSED IMPROPER REGISTER CHANGE/<15><12> 





MAINDEC 211 eDERPV<B 
DERPVA P11 


9564 
9565 
9566 
9567 
9568 
9569 
9570 
9571 
9572 
9573 
9574 
9575 
9576 
9577 
9578 
9579 
95e0 
9581 
9582 
9583 
9564 
9585 
9586 
9587 
9588 
9589 
9599 
9591 
9592 
9593 
9594 
9595 
9596 
9597 
9598 
9599 
9600 
9601 
9602 
9603 
9604 
9605 
9606 
9607 
9608 
9609 
9619 
9611 
9612 
9613 
9614 
9615 
9616 
9617 
9618 
9619 


041434 
941442 
041450 
041451 
041456 
41464 
041472 
041509 
41596 
041514 
041517 
041524 
041532 
041540 
441546 
941554 
041562 
941570 
41576 
041600 
041606 
041614 
041622 
041630 
41636 
041644 
441652 
041660 
041666 
041674 
041702 
041710 
041716 
041724 
041732 
041740 
041746 
041754 
441762 
941770 
041776 
042004 
042012 
942014 
442022 
942030 
#42036 
042044 
042052 
042060 
642066 
#42074 
042075 
042102 
942110 
#42116 


$2123 
040510 

012 

107 
04°S04 
053111 
040510 
052517 
620105 
006505 

122 
042526 
640524 
451505 
620124 
044124 
043101 
047503 
000104 
051127 
042510 
040440 
052101 
047101 
051127 
051106 
043125 
642522 
0406505 
947101 
040524 
042523 
051120 
051040 
042524 
047101 
047507 
052101 
042526 
052101 
046125 
052040 
005015 
042522 
042105 
020101 
820123 
053440 
042510 
052106 
046517 

006 

127 
044040 
026122 
043040 


MACY11 27(732) 
POWER DOWN AND UP ROUTINES 


051105 
043516 


047517 
040524 
051505 
020124 
042114 
044124 

#12 
641505 
020104 
043440 
053440 
040527 
651165 
042524 
046515 


@S2111 
042101 
042116 
020101 
042507 
@S2111 
646517 
042506 
042101 
042504 
020104 
041440 
020104 
050117 
043505 
620122 
042507 
042117 
020101 
020123 
051440 
020104 
042510 


042503 
042040 
044507 
044127 
051501 
042522 
0351105 
049515 


644522 
€40505 
046504 
046117 


041440 
006505 


020104 
043440 
053440 
044123 
041940 
051105 


044505 
040504 
OS3111 
04051¢ 
020123 
026105 
620122 
647101 


020105 
051105 
042040 
044103 
020104 
620105 
041040 
000122 
044040 
020122 
040504 
052501 
646511 
051105 
051511 
044103 
005015 
042040 
044507 
044127 
047510 
042502 
042522 


OS3111 
052101 
042526 
052101 
052040 
040440 
041440 


#42116 


042524 
042504 
040524 
047514 


1R#eFERO76 


ASCII 


eASCIZ 


eASCIZ 


oASCIT 


eASCIT 


eASCIZ 


eASCIZ 


Sea 


16:22 PAGE 182 SEO #2160 


/GOOD DATA GIVES WHAT SPWOULD RE THERE/<1$><12> 


/RECEIVED DATA GIVES WHAT WAS THFRE AFTER COMMAND/ 


/4PITE HEADER AND DATA CHANGED WPITE FROM BUFFERS 


/READ HFADER AND DATA CAUSED IMPROPER REGISTER CHANGE/<15><12> 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


/RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND/ 


/WRITE HEADER DATA FOLLOWED BY READ HEADER AND DATA CAUSED DATA ERROR/ 


OEE 


MAINDFC-11-DERPVoB MACY11 27(732) {18°FER<©76 16:22 PAGE 183 SEQ #211 
DERPVB P11 POWER DOWN AND UP ROUTINES 


9674 042124 642527 20104 654502 

9621 942132 51940 #40505 920104 

9622 042140 642518 042191 051105 

9623 842146 040440 0642116 042040 

9624 42154 52101 620101 #849503 

9625 042162 51525 642105 642040 

9626 42170 652101 620101 9651105 

9627 642176 647522 000122 - 

962@ 42202 042522 642101 @42040 £33: eASCTI /READ DATA CAUSED IMPROPER REGISTER CHANGE/<15><12> 
9629 942210 652101 6270101 #40503 

9630 42216 @51525 642105 044440 

9631 42224 0650115 947522 642520 

9632 42232 820122 642522 044507 

9633 42240 0652123 651105 041440 

9634 042746 049510 043516 6065¢5 

9635 042254 012 

9636 42255 107 047517 620104 eASCII /GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 
9637 42262 940594 649524 043440 

9638 042270 53111 051505 653440 

9639 42276 040510 620124 644123 

9640 042304 52517 642114 641040 

9641 842312 620105 644124 051105 

9642 042320 906505 012 

9643 642323 122 041505 644505 eASCI?Z /RECEIVED DATA GIVES WHAT WAS THERE AFTER COMMAND/ 
9644 042330 642526 620104 #40504 

9645 042336 640524 643440 053111 

9646 642344 951505 653440 0640510 

9647 042352 620124 040527 90620123 

9648 942360 044124 051105 620105 

9649 442366 643101 642524 620122 

9650 642374 647503 446515 647101 

9651 042402 000104 

9652 642404 0642522 642101 042049 E34: eASCIZ /READ DATA INCORRECT/ 

9653 042412 0652101 020101 647111 

9654 042420 47503 051122 041505 

9655 942426 660124 

9656 042430 51127 052111 620105 E35: eASCIT /WRITE DATA COMMAND CAUSED IMPROPER REGISTER CHANGE/<15><12> 
9657 042436 040504 640524 041440 

9658 042444 0646517 040515 042116 

9659 942452 641440 052501 642523 

9660 042460 0620104 646511 051120 

9661 042466 0650117 651105 051040 

9662 042474 43505 051511 042524 

9663 942502 20122 0644103 047101 

9664 842510 0642597 095015 

9665 642514 047507 042117 042940 eASCII /GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 
9666 042522 652101 620101 644507 

9667 042530 0642526 620123 044127 

9668 042536 652101 051440 047510 

9669 042544 646125 920104 #42502 

9670 42552 052040 042518 942522 

9671 042560 695015 

9672 42562 642522 642503 053111 eASCIZ /RECEIVED DATA GIVES REGISTER CONTENTS AFTER COMMAND/ 
9673 042570 642105 042040 052101 

9674 042576 620101 644507 042526 

9675 42604 @20123 42522 944507 


» od 


Sl ee eee 


MAINDEC $11 -DERPV<B 
DERPVB P11 


9676 
96077 
9678 
9679 
9680 
9681 
9682 
9683 
9684 
9685 
HAG 
9687 
96Rg 
9689 
9690 
9691 
9692 
9693 
9694 
9695 
9696 
9697 
9698 
9699 
9700 
9701 
970? 
9703 
9704 
9705 
9706 
9707 
9708 
97a9 
9710 
9711 
9712 
9713 
9714 
9715 
9716 
9717 
9718 
9719 
9729 
9721 
9722 
9723 
9724 
9725 
9726 
9727 
9728 
9729 
9730 
9731 


042612 
042620 
042626 
042634 
942642 
042646 
042654 
442662 
042670 
042676 
042704 
042712 
042720 
042723 
042730 
042736 
042744 
042752 
042760 
042766 
042774 
043001 
043006 
043014 
#439722 
043030 
043036 
043044 
943047 
043054 
043062 
0432970 
043976 
#43104 
43112 
043120 
043126 
043134 
043140 
043146 
043154 
043162 
043170 
043176 
043204 
043212 
043215 
043222 
043230 
043236 
043244 
043252 
043260 
043263 
043270 
043276 


MACY11 


POWER DOWN AND 


952123 
047117 
020123 
920122 
047101 
#51127 
040504 
046517 
641440 
042105 
042524 
020115 
051105 

123 
047593 
020104 
042105 
047522 
042522 
651105 
043516 

167 
040504 
O53111 
6405190 
052517 
020105 
006505 

122 
#42526 
040524 
651505 
@51511 
047503 
951524 
051105 
020113 
047101 
051127 
044103 
840503 
044440 
042520 
044507 
041440 
006505 

167 
040504 
OS53111 
0405190 
052517 
020105 
096505 

122 
042526 
040524 


051105 
042524 
043101 
047503 
000104 
052111 
040524 
040515 
040510 
953440 
043040 
052502 

Ld 
042505 
04651% 
040503 
044440 
042570 
044507 
041440 
006505 
647517 
040524 
#51505 
020124 
042114 
044124 

012 
041505 
020104 
043440 
051040 
042524 
052116 
040440 
031440 
047503 
060164 
0352111 
041505 
051525 
050115 
020122 
052123 


640510 | 


012 
047517 
040524 
051505 
020124 
@42114 
044124 

012 
041505 
020104 
043440 


27€732) 


LAFF O76 


UP ROUTINES 


41440 
@$2116 
042524 
946515 


0201058 
041440 
042116 
043516 
044522 
647822 
043106 


020113 
047101 
051525 
#50115 
020122 
052123 
040510 

@12 
020104 
043440 
053440 
044123 
641040 
051105 


044505 
040504 
O53111 
043505 
020122 
047105 
052166 
042505 
046515 


020105 
020113 
042105 
047522 
042522 
051105 
043516 


020104 
043440 
053440 
044123 
641040 
051165 


044505 
040504 
O53111 


EM37:% 


EM4O? 


oASCIZ 


eASCIT 


eASCIT 


eASCIZ 


ASCII 


eASCIT 


eASCIZ 


16:22 PAGE 184 SEQ #212 


/WRITE DATA COMMAND CHANGED WRITE FROM BUFFER/ 


/SEEK COMMAND CAUSED IMPROPER REGISTER CHANGE/<15><12> 


/GOOD DATA GIVES WHAT SHOULD RE THERE/<15><12> 


/RECEIVED DATA GIVES REGISTER CONTENTS AFTEP SEEK COMMAND/ 


/WRITE CHECK CAUSED IMPROPER REGISTER CHANGE/<15><12> 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


/RECEIVED DATA GIVES REGISTER CONTENTS AFTER COMMAND/ 


MAINDEC©11°DERPV=-B8 
DEPPVA P11 


9732 
9733 
9734 
9735 
9736 
9737 
9738 
9739 
9740 
9741 
9742 
9743 
9744 
9745 
9746 
9747 
9748 
9749 
9750 
9751 
9752 
9753 
9754 
9755 
9756 
9757 
9758 
9759 
9760 
9761 
9762 
9763 
9764 
9765 
9766 
9767 
9768 
9769 
9770 
9771 
9772 
9773 
9774 
9775 
9776 
9777 
9778 
9779 
9780 
9781 
9782 
9783 
9784 
9785 
9786 
9787 


043304 
043312 
043320 
043326 
943334 
043342 
043347 
043354 
043362 
043370 
043376 
043404 
043412 
043420 
043426 
043434 
43442 
443450 
043456 
043457 
043464 
043472 
043500 
043506 
043514 
043522 
943525 
043532 
043540 
043546 
643554 
#43562 
#43570 
043576 
843604 
043612 
043620 
043626 
043630 
943636 
043644 
043652 
043660 
043666 
043674 
043702 
043710 
443716 
043724 
043732 
043740 
443744 
043752 
043760 
043766 
043774 


MACY11 


POWER DOWN AND 


0515905 
@51511 
047503 
951524 
051195 
040515 

114 
043516 
053440 
041940 
@52111 
045503 
047524 
051525 
050115 
820122 
052123 
040510 

012 

107 
040504 
OS3111 
0405190 
052517 
620105 
406505 

122 
042526 
040524 
051505 
051511 
047503 
051524 
051105 
042524 
042522 
042513 
000124 
052101 
944524 
020117 
820105 
653440 
020123 
042105 
041440 
020104 
450117 
043505 
020122 
042507 
047507 
052101 
042526 
052101 
046125 


051940 
042524 
#52116 
040440 
041440 
042116 
041517 
047440 
644522 
020131 
020105 
041040 
020116 
042105 
047522 
042522 
051105 
043516 


047517 
040524 
051505 
020124 
042114 
044124 

012 
641505 
020104 
043440 
051040 
042524 
052116 
040440 
053440 
020123 
646040 
020104 


042524 
043516 
051127 
044527 
044522 
047514 
047440 
052501 
046511 
051105 
051511 
044103 
005015 
042117 
020101 
020123 
0514490 
020104 


27(732) 


UP ROUTINES 


043505 
#20122 
047105 
052196 
046517 

000 
044513 
052125 
042524 
051127 
047514 
052125 
040503 
044440 
042520 
044507 
041440 
006505 


020104 
043440 
053440 
044123 
041940 
051105 


044505 
040504 
O53111 
043505 
620122 
047105 
052106 
044322 
042527 
041517 
052517 


650115 
652040 
052111 
044124 
042524 
045503 
#52125 
042523 
051120 
051040 
042524 
047101 


042040 
044507 
044127 
047510 
042502 


EmM4is 


Eva2: 


18°FER°76 16:22 PAGE 1865 SEQ #213 


eASCII /LOCKING OUT WRITE BY WRITE LOCK ARUTTON CAUSED IMPROPER REGISTER CHANGE/ 


eASCIT /GO0D DATA GIVES WHAT SHOULD RE THERE/<15><12> 


eASCIZ /PECETVEND DATA GIVES REGISTER CONTENTS AFTER WRITES WERE LOCKED OUT/ 


eASCII /ATTE“PTING TO WRITE WITH WRITES LOCKED OUT CAUSED IMPROPER REGISTER CHA 


eASCII /GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 





MAINDEC©11-DERPV<=B 
DERPVB.P11 


9788 
9789 
9790 
9791 
9792 
9793 
9794 
9795 
9796 
9797 
9798 
9799 
9800 
grat 
9802 
9RO3 
984 
93805 
9RM6 
9aa7 
9808 
9809 
9819 
9811 
9A12 
9R13 
9814 
9815 
9816 
9817 
9918 
9819 
9820 
9821 
9822 
9823 
9924 
9825 
9826 
9827 
9828 
9829 
9830 
9831 
9832 
9833 
9634 
9835 
9836 
9837 
9838 
9839 
9a4a 
9841 
9842 
9843 


944092 
044010 
44012 
044920 
044026 
044034 
044042 
044050 
0449056 
944064 
044072 
044100 
044196 
44114 
944122 
044130 
044136 
944144 
044152 
944160 
44166 
044170 
044176 
044204 
44212 
944220 
044226 
044234 
044242 
044250 
844256 
644264 
044272 
044275 
944302 
044310 
044314 
044322 
944330 
044336 
044344 
044352 
044369 
044366 
044374 
044400 
044406 
044414 
044422 
044430 
044436 
044444 
044452 
044460 
044466 
044474 


macyii 


POWER DOWN AND 


052040 
005015 
042522 
042105 
020191 
020123 
452123 
047117 
020123 
020122 
OS50115 
051127 
651127 
420107 
953440 
020123 
042185 
041440 
042105 
020113 
005015 
047507 
#52101 
042526 
052101 
047440 
045523 
@$1117 
O52111 
044124 
042524 
942513 
906524 

127 
032124 
042105 
#42522 
642195 
020101 
020123 
053440 
040505 
045503 
#51105 
#42524 
044527 
044522 
041517 
$2517 
#20123 
650115 
047105 
043516 
042524 
053440 
046040 


042510 


042503 
042040 
044507 
042522 
051105 
042524 
043101 
052101 
042524 
$2111 
@$2111 
044527 
644522 
047514 
047440 
040510 
642040 
040504 


42117 
020101 
020123 
053440 
@20116 
041940 
020105 
420105 
053440 
046940 
620104 

012 
051501 
046505 
005015 
042503 
042040 
044507 
044127 
051501 
020164 
040440 
053440 
005015 
044124 
042524 
642513 
020124 
052101 
042524 
041101 
053440 
#20123 
044522 
041517 


27(732) 


1@eFEB<76 


UP ROUTINES 


042522 


@53111 
052101 
042526 
044507 
041440 
052116 
042524 
042524 
020104 
090105 
O47111 
044124 
042524 
045503 
052125 
043516 
051511 
040524 


042040 
044507 
044127 
051501 
044504 
043105 
051127 
044527 
044522 
041517 
052517 


040446 
052120 


@S3111 
052101 
042526 
052101 
051040 
040502 
052106 
044522 


053440 
646040 
020104 
040527 
042524 
800104 
044514 
044522 
054502 
042524 
020113 


Ev43s: 


EM44: 


oASCIZ 


ASCII 


ASCII 


eASCIT 


eASCIT 


oASCIZ 


eASCIT 





16:22 PAGE 186 SEQ #214 


/PFCEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTED URITE/ 


4MRITING WITH WRITFS LOCKED OUT CHANGED DISK DATA/<15><12> 


/GOOD DATA GIVES WHAT WAS ON DISK BEFORE WRITE WITH WRITE LOCKED OUT/<15 


WAS ATTEMPTED /<15><12> 


/RECETVED DATA GIVES WHAT WAS READ BACK AFTER WRITE/<15><12> 


/aITH WRITE LOCKED OUT WAS ATTEMPTED/ 


JENABLING WRITES BY WRITE LOCK BUTTON CAUSED IMPROPER REGISTER CHANGE/<1 


eet LL LL LL LLL LL LLL LLL 


MATNDEC*11-DERPV-B MACY11 27(732) 1@°FER*76 16:22 PAGE 187 SEQ #215 
DEPPVB.P11 POWER DOWN AND UP ROUTINES , 


9244 8044502 052502 052124 47117 

9845 44510 041449 052501 0642523 

9846 044516 820104 646511 451120 

9847 044524 650117 651195 051040 

9846 044532 643505 651511 042524 

9R49 944540 020122 644103 047101 

9850 044546 642507 #05015 

9851 044552 047507 42117 042040 eASCIT /GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 
9852 944560 052101 620101 644507 

9853 044566 042526 620123 044127 

9854 644574 052101 051440 047510 

9955 044602 046125 0201804 642502 

9856 044610 0652040 42510 642522 

9857 0844616 995015 

98958 044620 642522 642503 53111 eASCIT /RECEIVED DATA GIVES PEGISTER CONTENTS AFTER WRITE LOCK BUTTON/<15><12> 
9959 044626 042105 0642042 9052101 

99860 044634 920101 044507 642526 

9861 044642 620123 0642522 044507 

9862 044650 52123 051105 641440 

9863 044656 047117 642524 52116 

9864 044664 20123 043101 042524 

9865S 644672 620122 651127 0652111 

9866 944700 820105 047514 645503 

9R67 844706 641940 852125 0647524 

9868 044714 0606516 812 

9869 044717 185 640516 0646102 eASCIZ /ENABLED WRITES/ 

9879 044724 642105 653440 644522 

9871 644732 042524 600123 

9872 944736 051124 647101 043123 EM4ass: ASCII /TRANSFERRING ON LAST BLOCK © CYLINDER 410, SFCTOR 21, TRACK 18/<€15><12> 
9873 044744 051105 ©44522 043516 

9874 044752 047440 620116 040514 

9875 644760 052123 641040 047514 

9876 044766 645503 026440 641446 

9877 644774 646131 0647111 0642504 

9878 45002 020122 0630464 626060 

9879 45910 651440 041595 0647524 

958A 8645016 620122 930462 #20054 

98861 45024 651124 941501 620113 

9F82 845932 034061 605015 

9883 645036 640503 651525 642105 eASCIT /CAUSED IMPROPEP® REGISTER CHAYGE/<15><12> 
9R84 045944 044440 850115 647522 

9885 045952 0642520 620122 642522 

9886 945960 644507 052123 6511905 

9887 45966 941440 640510 643516 

9888 045074 8065905 012 

9889 645077 . 1897 047517 620104 eASCIT /GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 
9890 645104 640504 640524 043440 

98691 945112 653111 051505 053449 

9692 045120 040510 620124 944123 

9893 645126 052517 042114 941940 

9894 045134 620195 644124 651105 

99795 945142 906505 012 

9896 945145 122 641505 0445905 eASCIZ /RECEIVED DATA GIVES REGISTER CONTENTS AFTER TRANSFER/ 
9897 845152 042526 0620104 940594 

96896 045160 640524 643440 653111 

9999 045166 051595 051040 43505 


ec a 





MAINDEC©11-DERPV<-B 
DERPVA P11 


9999 
9901 
9902 
9903 
9904 
9995 
9906 
9907 
9908 
9909 
9910 
9911 
9912 
9913 
9914 
9915 
9916 
9917 
9918 
9919 
9920 
9971 
9972 
9923 
9924 
9925 
9926 
9927 
9928 
9929 
9930 
9931 
9932 
9933 
9934 
9935 
9936 
9937 
9938 
9939 
9940 
9941 
9942 
9943 
9944 
9945 
9946 
9947 
9948 
9949 
9959 
9951 
9952 
9953 
9954 
9955 


en tom lt tS SS === A SSS, = A TS 


A45174 
045202 
445210 
045216 
045224 
#45232 
#4524¢ 
945246 
045254 
045262 
045270 
045276 
045304 
045312 
045320 
045326 
045331 
045336 
045344 
045345 
645352 
045360 
045366 
045374 
045492 
045410 
045416 
045424 
045432 
045440 
045441 
945446 
045454 
445462 
045470 
045476 
045504 
045512 
045520 
045526 
045530 
045536 
045544 
045552 
045560 
045566 
045574 
045602 
045610 
045616 
045624 
045627 
045634 
045642 
045650 
945656 


MaACY11 


POWER DOWN AND 


asiSii 
0475903 
951524 
051195 
451516 
040504 
640505 
#46517 
020124 
020113 
044514 
032040 
042523 
031940 
640522 
006470 

iii 
042440 

900 

1246 
042506 
820107 
043040 
047516 
052123 
042523 
#41440 
020104 
050117 

012 

122 
042524 
47101 
047507 
652101 
642526 
052101 
646125 
052040 
605015 
0423522 
042105 
020101 
0280123 
052123 
047117 
020123 
020122 
050115 
051124 
051105 

124 
042506 
020107 
047040 
051511 


042524 
052116 
040440 
052040 
042506 
040524 
020104 
46040 
0461062 
020055 
042116 
030061 
952183 
626061 
045503 

A12 
#20123 
051122 


040522 
051122 
040564 
047522 
042516 
047101 
052163 
052501 
046511 
651105 


043505 
020122 
042597 
042117 
020101 
#20123 
051440 
020104 
042510 


0425063 
042940 
044507 
042522 
051105 
042524 
043101 
052101 
042524 
047101 

000 
940522 
051122 
051106 
047117 
040524 


27(732) 


020122 
047145 
052106 
040522 
000122 
051940 
051106 
051501 
041517 
054503 
951105 
020054 
oS4117 
052040 
030440 


@47111 
@$1117 


051516 
047111 
040524 
020115 
044530 
020124 
051117 
042523 
051120 
906440 


051511 
044103 
020054 
042040 
044507 
044127 
047510 
042502 
042522 


O53111 
052101 
042526 
044507 
041440 
052116 
042524 
042524 
020104 
043123 


051516 
047111 
046517 
054105 
052116 


18°FEB°76 163272 PAGE 188 SEQ 0216 
UP ROUTINES 


EM463 eASCIT /ODATA READ FROM LAST PLOCK © CYLINDER 410, SECTOP 21, TRACK 18/<¢15><12> 


eASCI2 /TS IN ERROR/ 


EM47: eASCIT /TRANSFERRING DATA FROM NONEXISTANT SECTOR CAUSED IMPROPER /€15><12> 


eASCII REGISTER CHANGE, GOOM DATA GIVES WHAT SHOULD BE THERE/<15><12> 


eASCIZ /RECEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTED TRANSFER/ 


EMSO3 eASCIT /TRANSFERPFING FROM NONEXISTANT SECTOR CAUSED DATA ERROR/<1$><12> 


MAINDEC #11 -DERPV=-B 
DERPVB.Pi1 


9956 
9957 
9958 
9959 
9969 
9961 
9962 
9963 
9964 
9965 
9966 
9967 
9968 
9969 
9°70 
9971 
9972 
9973 
9974 
9975 
9976 
9977 
9978 
9979 
99823 
9981 
9982 
9963 
9984 
9985 
9986 
99867 
9988 
9989 
99990 
9991 
9992 
9993 
9994 
9995 
9996 
9997 
9998 
9999 
10000 
10001 
10002 
10903 
10004 
10905 
10006 
10007 
10008 
10009 
10010 
10011 


045664 
045672 
045700 
045706 
045714 
045717 
045724 
045732 
045740 
045746 
45754 
045762 
045765 
045772 
46000 
9469006 
#46014 
046022 
046030 
646036 
046044 
9416046 
046054 
046962 
046070 
046076 
046104 
046112 
046120 
046126 
946134 
046137 
946144 
946152 
946160 
046166 
446174 
#46202 
046205 
046212 
046220 
046226 
046234 
#46242 
#46250 
046256 
46264 
046272 
846300 
446306 
46313 
946320 
046326 
046334 
046342 
946350 


POWER DOWN 


051449 
820122 
042105 
420101 
996522 

107 
840504 
$3111 
440510 
052517 
420105 
006505 

182 
052101 
042526 
052101 
044440 
643106 
052106 
040522 
000122 
044507 
044440 
046101 
#52103 
940503 
044440 
#42520 
044507 
041440 
096505 

107 
040504 
@53111 
049510 
$2517 
620105 
006505 

122 
042526 
040524 
051505 
951511 
047503 
051524 
051105 
043505 
647125 
920116 
@53111 

127 
042640 
047117 
054105 
052116 
047524 


MACY11 


041505 
040503 
042040 
051105 

012 
047517 
040524 
051505 
020124 
042114 
044124 

012 
442101 
020101 
020123 
@53440 
020116 
631105 
051105 
051516 


044526 
046114 
043040 
647511 
051525 
050115 
020122 
052123 
040510 

012 
047517 
#40524 
051505 
020124 
042114 
044124 

#12 
041505 
620104 
043440 
051040 
042524 
052116 
040440 
044440 
046101 
052203 
051511 
047105 
044522 
052101 
047040 
051511 
951440 
020122 


27(732) 


047524 
#51525 
052101 
047522 


020104 
043440 
053440 
044123 
041040 
051105 


042040 
044507 
044127 
051501 
052502 
040440 
652040 
042506 


043516 
043505 
047125 
020116 
042105 
047522 
042522 
0511905 
043516 


020104 
043440 
053440 
044123 
041040 
051105 


044505 
040504 
53111 
043505 
020122 
047105 
052106 
046114 
043040 
047511 
043440 

800 
042524 
020101 
047117 
040524 
041505 
049503 


18°FEBS76 16:27 PAGE 189 SEQ #217 


AND UP ROUTINES 


eASCIT 


oASCIZ 


EMSis eASCIT 


eASCIT 


eASCIZ 


EMS2: ASCII 


o 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


/BAD DATA GIVES WHAT WAS IN BUFFER AFTER TRANSFER/ 


/GIVING ILLEGAL FUNCTION CAUSED IMPROPER REGISTER CHANGE/<15><12> 


4GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


/RECEIVED DATA GIVES REGISTER CONTENTS AFTER ILLEGAL FUNCTION IS GIVEN/ 


/WRITE DATA ON NONEXISTANT SECTOR CAUSED IMPROPER REGISTER CHANGE/<15><1 


| ee re Le 


cee nnnnnnnnnn nnn ncn cmc ncn nnn e ccc nnn ee SSS 


18<-FFR<-76h 16222 PAGE 190 SEQ 6218 


MAINDEC 11 -DERPV=B 
DERPVB P11 


10012 
10013 
10014 
10015 
10016 
10017 
10018 
10019 
10020 
10021 
10022 
10023 
10024 
10025 
10026 
10027 
10028 
10029 
10030 
10031 
10432 
19033 
10034 
10035 
10036 
10937 
10038 
10039 
10240 
19041 
10942 
10043 
10044 
10045 
10046 
10047 
10048 
10049 
10050 
10051 
10052 
10953 
10954 
10055 
10056 
10057 
10058 
10059 
1096a 
10061 
10062 
10063 
10064 
10065 
10066 
10967 


046356 
46 364 
046372 
46400 
046406 
46414 
940415 
046422 
446430 
046436 
946444 
046452 
046460 
046463 
046470 
946476 
046504 
046512 
046520 
046526 
46534 
046542 
946550 
046556 
46564 
046572 
046600 
046606 
046614 
046622 
446630 
446636 
046644 
046682 
046660 
46666 
46674 
946702 
046710 
046716 
046724 
046732 
046740 
046746 
046754 
946762 
046763 
946770 
046776 
047904 
#47012 
047020 
047026 
047031 
047036 
047944 


“maACY11 


POWER DOWN AND 


051525 
650115 
#20122 
52123 
040510 

012 

107 
940504 
053111 
040510 
452517 
620105 
006505 

122 
042526 
040524 
051505 
@51511 
047503 
051524 
051105 
046505 
053440 
042040 
042522 
040505 
047101 
040524 
051105 
040505 
049503 
042040 
0511905 
052101 
044524 
046517 
053440 
o47111 
020104 
651505 
051525 
450115 
020122 
052123 
040510 

#12 

1067 
040504 
OS53111 
040510 
052517 
020105 
006505 

122 
042526 
840524 


#42105 
047522 
042522 
051105 
043516 


047517 
040524 
451505 
020124 
#42114 
044124 

O12 
041505 
@20104 
043440 
051640 
042524 
052116 
640440 
640440 
052120 
044522 
@52101 
042101 
042504 
020104 
040440 
040440 
941522 
051525 
052101 
647522 
042524 
043516 
040515 
052111 
040526 
042101 
020123 
042105 
647522 
042522 
051105 
043516 


047517 
040524 
051505 
020124 
042114 
044124 

012 
041505 
020104 
043440 


27(732) 


UP ROUTINES 


044440 
042520 
044507 
041440 
0806505 


020104 
043440 
053440 
044123 
041040 
051105 


044505 
040504 
@S3111 
643505 
@20122 
047105 
032106 
052124 
042105 
042524 
090101 
044040 
020122 
040504 
052106 
051440 
020110 
042105 
020101 
000122 
050115 
041440 
042116 
#20110 
044514 
051104 
040503 
044440 
042529 
044507 
041440 
006505 


020104 
043440 
053440 
044123 
041040 
051105 


044505 
040504 
@53111 


EMS4: 


eASCIIT /GOOD DATA GIVES WHAT SHOULD RE THERE/<15><12> 


eASCIZ /RECEIVED DATA GIVES REGISTER CONTENTS AFTER ATTEMPTED WRITE DATA/ 


eASCIZ /READ HEADER AND DATA AFTER A SEARCH CAUSED DATA ERROR/ 


eASCIT /ATTEMPTING COMMAND WITH INVALID ADDRESS CAUSED IMPROPER REGISTER CHANGE 


eASCII /GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


eASCIZ /RECETVED DATA GIVES REGISTER CONTENTS AFTER OPERATION/ 


ieteneasnseee nnn: 11s ee 


MAINDEC "11 °DERPV<B 
DEPPVB P11 


10968 
10069 
10070 
10071 
10972 
10073 
10074 
10075 
10976 
10077 
10078 
19079 
10980 
10081 
1008? 
190083 
10084 
10085 
10086 
10087 
10088 
19089 
10090 
10091 
10992 
10093 
10094 
10095 
10096 
19997 
10998 
10099 
10102 
10101 
10102 
10103 
10144 
10105 
10106 
10197 
19168 
10109 
10110 
10111 
10112 
10113 
10114 
10115 
10116 
10117 
10118 
10119 
10120 
10121 
10122 
10123 


047052 
0479690 
047066 
047074 
047102 
047110 
047116 
047117 
047124 
047132 
047140 
447146 
047154 
047162 
047170 
047176 
047204 
047210 
047216 
047224 
647232 
047240 
047246 
047251 
047256 
047264 
#47272 
047300 
047306 
047314 
047317 
047324 
947332 
047340 
047346 
047354 
047362 
047370 
047376 
047404 
047405 
047412 
047420 
047426 
047434 
047442 
#47450 
47456 
047464 
947472 
647500 
047505 
047512 
047520 
947526 
047534 


MACY11 


27(732) 


18°FEB-76 


POWER DOWN AND UP ROUTINES 


9515905 
$1511 
047503 
451524 
051105 
049522 

900 

127 
043516 
642522 
020107 
042440 
042524 
051104 
053117 
653517 
@$51117 
040503 
044440 
042520 
044507 
041440 
006505 

107 
040504 
@53111 
040510 
052517 
020105 
006505 

122 
042526 
040524 
051505 
OS51S11 
047503 
051524 
051105 
040522 

000 

104 
042522 
OF2111 
042440 
042524 
051104 
053117 
053517 
051117 
O47111 
041505 

127 
047516 
047524 
051440 
020104 


651040 
042524 
#52116 
040449 
047440 
044524 


044522 
047440 
042101 
044527 
050130 
020104 
051505 
051105 
042440 
605015 
051525 
050115 
020122 
032123 
040510 

012 
047517 
040524 
051505 
020124 
042114 
044124 

012 
041505 
620104 
043440 
051040 
042524 
052116 
040440 
047440 
044524 


052101 
042101 
020110 
050130 
020104 
051505 
051105 
042440 
044440 
647503 
006524 
@51117 
020056 
031040 
047510 
042502 


@43505 
#20122 
047105 
052106 
042520 
047117 


044524 
020122 
@47111 
044124 
041505 
042101 
020123 
046106 
051122 


042105 
047522 
042522 
051105 
043516 


020104 
043440 
053440 
044123 
041040 
@51105 


044505 
040504 
@331.1 
043505 
020122 
047105 
052106 
042520 
047117 


20101 
053440 
047161 
041505 
042101 
020123 
046106 
051122 
020123 
051122 

#12 
020104 
020061 
030066 
046125 
051040 


EMSS2 


eASCIT 


eASCIT 


eASCIT 


eASCIZ 


eASCIT 


16:22 PAGE 191 SEQ 6219 


/WRITING OR READING WITH EXPECTED ADDRESS OVERFLOW ERROP/<15><12> 


CAUSED IMPROPER REGISTER CHANGE/<15><12> 


/GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 


/RECEIVED DATA GIVES PEGISTER CONTENTS AFTER OPERATION / 


/DATA READ WITH AN EXPECTED ADDRESS OVERFLOW ERROR I8 INCORRECT/<15><12> 


/40RD NO, 1 TO 260 SHOULD BE READ, WORD NO 261 TO 266 SHOULD/<15><12> 


EE ne 


MAINDEC©11-DERPV-R MACY11 27(732) {8eFFR°76 16222 PAGF 192 SEQ 6220 
DERPVB.P1! POWER DOWN AND UP ROUTINES 


10124 047542 040505 9826104 4534490 
19125 647550 O51117 820194 047516 
10126 647556 631940 630466 05204¢ 
10127 647564 620117 633062 #20066 
101268 647572 644123 052517 642114 
10129 647600 605015 


10130 047602 042502 041440 049510 eASCI2Z /BE CHANGED/ 
10131 647610 643516 0642105 000 
10132 047615 101 ©52124 0646505 E™”S73 eASCIT /ATTEMPTING DATA COMMAND WITH WRONG FORMAT BIT CAUSED/<15><12> 


10133 ©47622 652129 047111 0620107 

10134 047630 649564 640524 041440 

10135 647636 646517 640515 642116 

10136 647644 683440 652111 62011¢ 

19137 047652 651127 647117 620107 

10138 847660 647536 46522 052101 

10139 647666 6414640 52111 041440 

10149 #47674 $2501 642523 0806504 

10141 047762 012 

10142 047703 111 @80115 0647522 eASCIT /IMPROPER REGISTER CHANGE/<15><12> 

10143 647719 642520 620122 642522 

10144 0647716 644507 652123 0511905 

10145 @47724 041440 640510 043516 

10146 647732 006505 #12 

10147 #47735 107 @47517 620104 eASCIT /GOOD DATA GIVES WHAT SHOULD BE THERE/<1$><12> 
10148 0647742 840504 640524 643440 

10149 0647750 653111 0651505 0653440 

16150 647756 840510 20124 644123 

10151 0647764 052517 642114 641940 

10152 047772 ©2019S5 644124 0651105 

10153 50000 606505 012 

10154 0850003 122 041505 644505 eASCIZ /RECEIVED DATA GIVES PEGISTER CONTENTS AFTER ATTEMPTED DATA TRANSFER/ 
10155 450010 642526 620104 640504 

10156 50016 640524 643440 053111 

10157 0650024 0651505 0651040 643505 

10158 050032 651511 642524 620122 

10159 950040 647503 052116 0647165 

10160 @50046 051524 640440 0652106 

10161 950054 8651105 640440 052124 

10162 @50062 646505 652120 042105 

16163 050070 642040 0652101 0620101 

10164 050076 051124 847101 643123 

10165 050104 0651105 660 i 
10166 050107 161 052124 046505 E60: eASCIT /ATTEMPTING TO MODIFY REGISTEP DURING AN OPERATION CAUSED IMPROPER/<15>< 
10167 050114 052120 @47111 0620107 

16168 @50122 647524 646440 642117 

10169 050130 643111 ©20131 642522 

10170 650136 0644507 652123 0651105 

10171 050144 042040 651125 0647111 

10172 @50152 020107 647101 647440 

10173 @5016@ 842528 640522 844524 

10174 50166 647117 641440 652501 

10175 050174 642523 620104 0646511 

10176 050202 651120 ©@S@117 651195 

10177 050210 605015 ° 

10178 050212 642522 644507 652123 eASCII /REGISTER CHANGE, GOOD DATA GIVES WHAT SHOULD BE THERE/<15><12> 
10179 650220 651105 641440 640510 


tt LLL 








— 


MAINDECe11 -DERPV<B MACY11 27(732) 18eFEP*76 16222 PAGF 193 SEQ 6221 
DEPPVE Pil POWER DOWN AND UP ROUTINES 


19180 050726 643516 927105 4344¢ 
10181 050234 647517 20104 #40504 

10182 650242 040524 043440 053111 

10183 050250 051505 653449 #40510 

10184 650256 020124 644123 052517 

1918S #50264 042114 64130460 0620105 

10186 @50272 644124 51105 996505 

10187 659300 012 

10188 050301 122 #461505 944505 eASCIT /RECEIVED DATA GIVES PEGISTER CONTENTS AFTFR OPFRATION WAS ATTEMPTED /<15 
10189 050306 042526 620104 640594 

10199 050314 940524 043440 ©53111 

10191 050322 5150S 9651940 #43505 

10192 050330 051511 042524 620122 

10193 650336 947503 052116 0471065 

10194 050344 051524 640449 052106 

10195 050352 051105 647448 642520 

10196 050360 640522 644524 047117 

10197 9050366 0653440 651501 046440 

10198 50374 052124 646505 652120 

10199 050402 042105 eeSe15 

10200 050406 647515 043104 647111 eASCIZ /MODFING REG GIVES ADDRESS OF RFGISTER BEING “ODIFYED WHICH CAUSED ERROR 
19201 @50414 620107 642522 920107 

10202 50422 644507 0642526 620123 

10203 050430 642101 051104 051565 

10204 050436 620123 043117 @S51040 

10295 05946464 643505 6351511 0642524 

10206 050452 620122 042502 047111 

19207 050460 20167 647515 644504 

19208 050466 654506 042105 053440 

10299 050474 644510 044103 0641440 

10210 050502 9052501 642523 620104 

10211 050510 0651105 647522 #060122 

10212 950516 642504 644526 0642503 EM6i: eASCIZ /DEVICE NOT AVALABLE BE*ORE COMMAND WAS TO BE GIVIEN/ 
10213 050524 947040 032117 040440 ; 
19214 @50532 040526 ©@40514 646102 

10215 950540 620105 642502 647506 

10216 050546 @42522 041440 646517 

19217 @50554 040515 642116 0653440 

10218 659562 51501 652040 620117 

10219 050570 042502 643440 053111 

10220 650576 642511 #00116 7 

10221 @50602 044122 051504 620061 E63: eASCIZ /RHDS! CONTENTS DURING COMMAND WAS IW ERROR/ 
10222 @5061¢ 647503 052116 047105 

10223 @50616 651524 642040 9651125 

10224 050624 ©47111 @20107 647503 

19225 050632 646515 047101 920104 

10226 659640 040527 @20123 47111 

10227 059646 042440 051122 51117 

10228 9050654 eoa 

10229 050655 122 047505 0646101 EM64: eASCII /RECALIBRATE COMMAND CAUSED IMPROPER REGISTER CHANGE/<15><12> 
10230 0650662 041111 @40522 0642524 

10231 950670 641440 646517 640515 

10232 099676 642116 0641440 652501 

10233 650704 642523 620104 646511 

10234 050712 651120 650117 51105 

10235 050720 051040 643505 951511 


" . es NT ae al 


MAINOFCo11-NEePVeB 
DERPVB.PI1 


10236 
10237 
10238 
10239 
19240 
10241 
10242 
10243 
10244 
10245 
10246 
19247 
10248 
10249 
10250 
10251 
10252 
1¢253 
10254 
10255 
10256 
10257 
192586 
10259 
10260 
19761 
10262 
19263 
10264 
19265 
10266 
18267 
19268 
10269 
10272 
10271 
10272 
10273 
10274 
10275 
10276 
10277 
10278 
10279 
10280 
10281 
10282 
10283 
10284 
10285 
10286 
10287 
102886 
10299 
19290 
19291 


50726 
50734 
59742 
050750 
450756 
059764 
050772 
051900 
051906 
#51910 
51016 
051024 
951932 
051040 
951046 
951054 
951962 
a5197@ 
51974 
051102 
#51110 


051116 
451124 
951132 
051140 
051146 
051154 
51162 
051170 
051176 
051177 
051204 
#51212 
951215 
051222 
051230 
451236 
951244 
051252 
A51260 
951266 
051274 
051277 
#51304 
951312 
451320 
#51326 
051327 
051334 
051342 
951350 
051356 
051364 


wACY1I1 


POWFR DOWN AND 


942524 
A47101 
@47597 
#52101 
942526 
52101 
046125 
052049 
075015 
442522 
0421905 
020101 
923123 
052123 
@47117 
020123 
020122 
047101 
O47111 
050125 
046111 


042519 
940442 
052101 
046515 
047506 
042191 
041505 
052040 

012 

103 
020104 
#96522 

122 
043440 
053440 
051124 
040527 
B47111 
@S2111 
051117 
846504 

117 
044514 
030040 
052103 

00a 

122 
042519 
940440 
052101 
047522 
044040 


020122 
042507 
042117 
@20101 
020123 
051440 
20104 
4251? 


042503 
@42040 
944507 
042522 
051105 
042524 
043101 
047503 
O00104 
942524 
020124 
@47111 


42101 
42116 
020101 
047101 
@20122 
051440 
044524 
451505 


052501 
051105 

P12 
042110 
OS3111 
940510 
041501 
020123 
020107 
042524 
051040 

912 
20116 
042116 
020054 
51117 


040505 
042101 
042116 
020101 
020122 
040505 


270732) 


{P-FEROTH® 16222 


UP ROUTINES 


H44103 
005015 
42040 
044507 
044127 
047510 
#42502 
042522 


OS3111 
052101 
42526 
044507 
041440 
052116 
042524 
046515 


@51122 
040596 
000107 


051105 
042040 
047503 
020104 
042510 
646105 
047117 
006524 


042523 
047522 


052123 
951505 
#20124 
020113 
042502 
051127 
020116 
040545 


954503 
051105 
042523 
030040 


020104 
051105 
0420490 
051105 


O47111 . 


020104 


ASCII 


eASCT2Z 


EM653 eASCIZ 


EM668 eASCIT 


eASCTI 


ASCII 


eASCIZ 


EM673 eASCIT 





PAGF 194 SFO 4222 


/GOOD DATA GIVES WHAT SHOULD RE THERE/<15><12> 


/PFCEIVED DATA GIVES FEGISTER CONTENTS AFTER COMMAND/ 


/INTERRUPT FATLING/ 


/HEADEP AND DATA COMMAND FOR HEAD SELFCTION TEST/<15><12> 


/CANSFD ERROR/<15><12> 


JRHDST GIVES WHAT TRACK WAS BEING WRITTEN OP READ/<15><12> 


4ON CYLINDER @, SECTOR @/ 


/READ HFADER AND MATA ERROR IN HEAD SELECTION TEST/<12><15> 


MAINDEC©11 -DERPV=-B 
DERPVB,.PI1 


10292 
10293 
10294 
10295 
19296 
109297 
10298 
10299 
10309 
10301 
10302 
10303 
10304 
10305 
19306 
10307 
19308 
10309 
10319 
10311 
10312 
10313 
10314 
10315 
10316 
10317 
10318 
10319 
10320 
10321 
10322 
10323 
10324 
10325 
10326 
10327 
10328 
10329 
10330 
10331 
10332 
10333 
10334 
10335 
10336 
10337 
109338 
19339 
19340 
10341 
10342 
19343 
10344 
10345 
10346 
10347 


451372 
a51400 
951406 
051412 
051420 
051426 
051434 
951442 
051450 
051456 
051464 
051472 
05150¢ 
#51506 
051514 
051522 
051524 
#51532 
051540 
051546 
051554 
951562 
@51570 
051576 
051603 
051610 
051616 
051624 
051632 
051640 
051642 
051650 
051656 
051664 
051670 
051676 
951704 
051712 
451720 


#51722 
951730 
051736 
051744 
951752 
051760 
031766 
051774 
052002 
952010 
9520611 
052016 
052024 
052032 
#52040 
052046 


wacyil 


POWER DOWN AND 


042523 
047511 
052123 
044506 
647306 
51117 
041115 
051101 
042101 
047527 
046525 
032440 
033062 
620108 
053440 
006412 
o4a7iii 
020101 
420123 
032040 
033454 
o$3111 
041501 
041115 

122 
042510 
040440 
052101 
047522 
005015 
044504 
047105 
o47111 
052123 
047527 
051517 
043440 
642510 
005615 


047527 
051517 
030966 
820105 
953448 
044440 
020105 
042116 
042104 

400 

166 
043516 
041040 
O47111 
052520 
005015 


042514 
020116 
006412 
051522 
051125 
020164 
051105 
820105 
051105 
042122 
042562 
052040 
020760 
040504 
051117 


042040 
047527 
044502 
032454 
034054 
020105 
#20113 
051105 
040505 
042101 
042116 
020101 
020122 


043106 
042503 
020105 
#05015 
042122 
030440 
OS3111 
042101 


042122 
032440 
043440 
040504 
044510 
626123 
054503 
051105 
042522 


o51117 
047440 
020131 
042504 
051514 


27(732) 


1A oF ER@76 


UP ROUTINES 


052103 
042524 


020124 
953440 
052516 
020123 
042510 
006412 
047040 
051522 
020117 
051101 
040524 
051504 


052101 
042122 
051524 
033054 
043440 
051124 
052516 

000 
020104 
051105 
042049 
051105 
O47111 


051105 
046040 
042524 


047040 
032055 
020105 
0351105 


047040 
031055 
@$3111 
040524 
044103 
044124 
044514 
049440 
051523 


044503 
044520 
020063 
020130 
051505 


Ev70% 


EM7isz 


ASCII 


eASCIT 


eASCIZ 


eASCIT 


eASCIT 


ASCII 


ASCII 
eASCIZ 


eASCIT 


16222 PAGE 195 


/FIRST FOUR WORD NUMBERS ARE HEADER/<12><15> 


/AORD NUMBERS §$ TO 26@ APE DATA WORDS/<12><15> 


/TN DATA WORDS BITS 4,5,6,7-8 GIVE TRACK NUMBER/ 


/READ HEADER AND DATA ERROR IN/<15><12> 


/DIFFERENCE LINE TEST/<15><i2> 


4WORD NOS 14 GIVE HEADER/<15><12> 


/WORD NOS $=26@ GIVE DATA WHICH IS THE CYLINDER ADDRESS/ 


/FORCING OPT BY 3 INDEX PULSES/<15><12> 





MAINDFC-11-DERPV-B 
DERPVB P11 


10348 
10349 
10350 
10351 
10352 
10383 
16354 
10355 
10356 
10357 
10358 
10359 
10360 
10361 
10362 
10363 
10364 
10365 
10366 
10367 
10368 
10369 
10370 
10371 
10372 
10373 
10374 
10375 
10376 
10377 
10378 
10379 
10380 
10381 
10362 
10363 
10384 
10385 
10386 
10387 
10388 
10389 
10390 
10391 
10392 
10393 
10394 
10395 
10396 
10397 
109398 
10399 
10400 
10401 
10402 
10403 


052050 
052056 
052064 
052072 
052100 
952106 
@$2111 
952116 
052124 
052132 
052140 
#52146 
052154 
@$2157 
052164 
052172 
052200 
052206 
052214 
032222 
052230 
952236 
052244 
032252 
452260 
052266 
052274 
0523062 
052310 
032316 
452324 
052332 
052340 
#52343 
052350 
052356 
052364 
052372 
952400 
052406 
052412 
052420 
AS2426 
52434 
652437 
052444 
052452 
052460 
052466 
052474 
#525062 
a52510 
052513 
052520 
652526 
052534 


040503 
044440 
042520 
044507 
41440 
006505 

107 
#40504 
OS3111 
040510 
#52517 
620108 
906505 

122 
042526 
040524 
051505 
051511 
047503 
051524 
051105 
042116 
046125 
044124 
040527 
042440 
040440 
040440 
042524 
042504 
820194 
041440 
042116 

122 
#42510 
040449 
052101 
020122 
020960 
020123 
044124 
020123 
041505 
006440 

124 
051511 
020122 
042504 
051514 
052501 
047101 
51117 

122 
042510 
040440 
052101 


MACY11 27¢€732) 
POWER DOWN AND UP ROUTINES 


@$1525 
a5e115 
#20122 
$2123 
040510 

#12 
047517 
40524 
631505 
020124 
@42114 
044124 

012 
041505 
020104 
043440 
051940 
042524 
@$2116 
040440 
631440 
054105 
042523 
#51105 
020123 
$1122 
052106 
033440 
044040 
020122 
040504 
046517 

000 
040505 
042101 
#42116 
020101 
030461 
047527 
605015 
052101 
033064 
047524 

012 
040510 
047440 
620063 
020136 
051505 
042523 
042440 

000 
640505 
042101 
042116 
020101 


042105 
047522 
042522 
051105 
043516 


020104 
043440 
053440 
044123 
041040 
@S11a5 


044505 
040504 
053111 
043505 
020122 
047105 
052106 
044448 
050040 
006123 
020105 
047101 
oS51117 
051105 
044522 


047101 
040524 
040515 


020104 
051105 
042040 
047506 
033071 
042122 


044440 
051440 
051522 


020124 
042526 
O47111 
0S2520 
041440 
020104 
051122 


020104 
051105 
042040 
047506 


16°FFR°76 16:22 PAGE 196 SEQ #224 


eASCTT 


ASCII 


eASCIZ 


EM722 eASCTIZ 


EM732 eASCIT 


eASCIT 


eASCIZ 


EM743 ASCII 


/CAUSED IMPPOPER RFGISTFR CHANGE /<15><12> 


/GOOD DATA GIVES WHAT SHOULD BE THEPE/<15><12> 


/RECEIVED DATA GIVES REGISTER CONTENTS AFTER 3 INDEX PULSES/ 


/THERE WAS AN ERROR AFTER A WRITE HEADER AND DATA CO4MAND/ 


/READ HEADER AND DATA FOR 11960 WORDS /<€15><12> 


/THAT 1S 46 SECTORS /<15><12> 


‘THAT IS OVER 3 INDEX PULSES CAUSED AN ERROR/ 


/READ HEADER AND DATA FOR 11960 WORDS /<15><12> 





MATNDEC#11-DERPV=-B 
DERPVB.Pi1 


19404 
10405 
10496 
19407 
10408 
10409 
10414 
10411 
10412 
10413 
10414 
10415 
10416 
10417 
10418 
19419 
10470 
19421 
10422 
10423 
10424 
10425 
10426 
10427 
10428 
18429 
10430 
10431 
10432 
10433 
10434 
10435 
10436 
10437 
10438 
10439 
10440 
10441 
10442 
10443 
10444 
10445 
10446 
10447 
10448 
10449 
1045¢ 
10451 
10452 
10453 
10454 
10455 
10456 
10457 
10458 
10459 


082542 
052550 
952556 
932562 
952570 
052576 
032604 
032612 
052620 
052626 
052634 
052635 
052642 
452650 
052656 
9S 2664 


052674 
432702 
$2710 
052716 
952724 
052732 
052740 
052745 
#52752 
952760 
052766 
@52774 
AS30082 
053010 
053016 
033024 
053026 
053034 
053042 
0530506 
0530956 
053064 
#53072 
953100 
953106 
O53114 
053122 
953130 
053136 
053144 
053151 
053156 
53164 
053172 
AS53200 
053206 
053213 
053220 


820122 
020060 
020123 
044124 
020123 
041505 
0200584 
044440 
051105 
642116 

012 

126 
020123 
042105 
052640 
000124 


041520 
20040 
620040 
020124 
042522 
020940 
020040 
051503 

040 
020040 
020040 
050130 
040440 
051523 
042524 
047117 
000123 
041520 
620040 
9200408 
020124 
042522 
020040 
020040 
020048 
020040 
020040 
#42520 
0421801 
026123 
051515 

120 
020040 
020040 
047517 
051040 
042526 

048 
020040 


MACY11 27(732) 
POWER DOWN AND "WP POUTINES 


039461 
647527 
005015 
052101 
033064 
047524 
044124 
#20123 
031440 
054105 


046125 
040503 
047440 
020117 


020040 
040527 
020040 
020040 
020107 
042522 
020040 
006461 
020040 
050040 
020040 
041505 
042104 
041440 
052116 
042524 


020940 
040327 
020040 
020040 
020107 
044524 
@47111 
020040 
041520 
020040 
052163 
051104 
930061 
041505 
020103 
051040 
020040 
620104 
041505 
006504 
020040 
040440 


033071 
042122 


944440 
051440 
051522 
052101 
053117 
044440 
006440 


042523 
0$1525 
044520 
042523 


020040 
020124 
044502 
020040 
020040 
020107 
044122 

012 
020040 
020103 
042440 
020124 
042522 
047117 
041440 
052116 


020040 
020124 
044502 
020040 
020040 
042515 
0°5015 
e20n40 
020040 
054105 
020040 
051505 
020040 

009 
020040 
043505 
043440 
020040 
044505 

@12 
020040 
042104 


1ReFER©76 16327 PAGF 197 SEQ 6225 


eASCIT 


eASCIZ 


DH1i3 eASCIT 


eASCIZ 


OH43 ASCII 


eASCI2Z 


DHS: eASCIT 


eASCIZ 


/THAT IS 46 SFCTOPS, THAT IS OVER 3 INDEX /€1§59>4€12> 


/PULSES CAUSED OPI TO SET/ 


Pc wat BIT REG REG RPHCS1/<15><12> 
4 pc EXPECT ADDRESS CONTENT CONTENTS/ 

sec WAT BIT REG TIME IN/<€15><12> 

/ pc EXPECT ADDRESS 10 M“SEC/ 

7PCc REG GooD RECEIVED/<15><12> 

/ ADDRESS DATA DATA/ 





MAINDFCo] 1 -DERPV<B 
DFERPVA.P11 


10460 
10461 
10462 
19463 
10464 
10465 
10466 
10467 
10468 
10469 
10470 
10471 
10472 
19473 
10474 
10475 
10476 
10477 
10478 
10479 
10480 
10481 
10482 
10483 
104864 
10485 
10486 
10487 
16488 
10489 
10490 
10491 
10492 
10493 
10494 
10495 
10496 
10497 
10498 
10499 
10599 
10501 
10502 
10503 
10504 
195905 
10506 
10507 
10508 
10599 
10519 
10511 
19512 
10513 
10514 
10515 


053226 
0532734 
433242 
953250 
953256 
033264 
$3272 
453300 
053302 
053310 
053316 
053324 
053327 
453334 
033342 
053350 
053356 
953357 
933364 
$3372 
053400 
053406 
A53414 
453422 
#53430 
053436 
053444 
033450 
033456 
053464 
053472 
053500 
053506 
053514 
033522 
#53530 
953536 
053544 
953552 
053560 
953566 
053574 
0536002 
053610 
053616 
053624 
033627 
053634 
053642 
#33650 
053656 
053664 
53672 
053700 
953706 
O53714 


MACY11 


POWER DOWN AND 


042522 
452101 
04204e 
041520 
920040 
020040 
042503 
005015 
620040 
620040 
051505 
040524 

120 
020040 
020040 
042104 

a60 

120 
620040 
020124 
044501 
041440 
052116 
042524 
047117 
041440 
052116 
020040 
020040 
020040 
627107 
@44122 
020040 
020062 
051504 
044122 
041520 
020040 
047440 
052116 
047503 
020106 
047440 
@52116 
047503 
496506 

40 
020040 
030523 
041519 
051040 
020040 
030522 
042510 
051640 

009 


051523 
020101 
052101 
020040 
042522 
020040 
53111 


#20040 
042101 
620123 

000 
020103 
051940 
020040 
042522 


020103 
032040 
020040 
044514 
047117 
041440 
052116 
042524 
047117 
075015 
020040 
047516 
020040 
020046 
031503 
044122 
020740 
020961 
051105 
620040 
647503 
020106 
047448 
32116 
047503 
020106 
047440 
052116 

012 
020040 
051940 
020040 
031123 
042110 
051040 
020040 
031122 
042510 


77(732) 


1QeFER<76 


UP ROUTINES 


042040 
#20040 
00101 
020040 
920107 
842522 
042105 


20040 
051104 
040504 


26040 
043505 
040440 
051523 


020040 
051505 
043040 
043516 
042524 
047117 
041440 
032116 
042524 


020040 
020040 
042522 
620840 
020061 
051503 
044122 
620040 
000061 
020040 
052116 
047503 
020106 
047440 
#52116 
047503 
020196 
047449 


020040 
041510 
051040 
020040 
030523 
042510 
051040 
020940 
031522 


DH7s 


eASCIT 


eASCTZ 


eASCIZ 


eASCTI 


eASCI?2 


eASCIT 


eASCIZ 


16322 PAGE 


ec 


7ec 


7Pec 


ee 


198 


PEG PECEIVED/<15><12> 

ADDRFSS DATA/ 

REG ADDRESS/ 

TEST FATLING CONTENT CONTENT CONTENT CONTENT/<15><12> 
wo REG. RHCS1 RHCS2 RNDS!1 RMER1/ 

CONT OF CONT OF CONT OF CONT OF CONT OF CONT OF /<15><12> 
PHCS1 RHCS2 RHDS1 RHERI RHFR2 RHER3/ 


MATNDEC 11 -DERPVoB 
DERPVE.P1LI 


10516 
19517 
10518 
19519 
14520 
10521 
10522 
10523 
12524 
10825 
10526 
10527 
10528 
10529 
10530 
10531 
10532 
10533 
10534 
10535 
10536 
10537 
10538 
10539 
10540 
10541 
10542 
10543 
10544 
19545 
10546 
10547 
10548 
10549 
10550 
14551 
10552 
10553 
10554 
10555 
14556 
10557 
10558 
10559 
14560 
10561 
10562 
10563 
10564 
10565 
10566 
10567 
19568 
18569 
10570 
10571 


053715 
0$3722 
053730 
053736 
053744 
053752 
083760 
953766 
AS53774 
54002 
054007 
os4a14 
034022 
A54030 
054736 
54044 
054052 
054057 
054964 
054072 
454100 
054106 
@54114 
#54122 
954126 
054134 
054142 
054150 
054156 
054164 
54172 
054177 
054204 
054212 
054220 
054226 
054234 
54242 
54243 
054250 
054256 
054264 
054272 
954275 
054302 
054310 
054316 
054324 
054326 
054334 
054342 
954350 
054355 
054362 
054370 
054376 


macyiil 


POWER DOWN AND 


120 
920440 
029104 
047517 
041040 
020940 
@20e4a 
020040 
040524 
049504 

12¢ 
020040 
020040 
047517 
051040 
20040 
043505 

040 
020040 
042522 
052101 
042040 
020040 
052103 
041520 
020040 
920040 
042117 
042522 
020040 
@47111 

049 
623040 
042522 
052101 
042040 
020049 

©0600 

126 
620040 
043117 
042110 
006440 

040 
020040 
620040 
051501 
000040 
#41520 
020040 
020106 
051503 

040 
020040 
020040 
051501 


020103 
053440 
020040 
020104 
#421061 
20060 
047040 
020040 
020040 
040524 
020103 
051940 
020040 
020104 
041505 
044440 
006514 
020046 
040440 
051523 
020101 
052101 
043040 
000116 
020040 
042522 
020040 
029040 
053103 
047515 
096507 
@2°R40 
040440 
051523 
026101 
052101 
051940 


020103 
650049 
020040 
030523 

A12 
020040 
045040 
020046 
020040 


020040 
041520 
020046 
006461 
020040 
045040 
020049 

000 


27(732) 


1ReFEP S76 16322 PAGF 


UP ROUTINES 


020040 
#51117 
043440 
020040 
@7S015 
020040 
020117 
040504 
20040 

aaa 
020040 
043505 
043440 
020040 
042126 
046114 

#12 
020040 
#42104 
042040 
020040 
020101 
047125 


020040 
020107 
047507 
020040 
020104 
043104 

012 
020040 
042104 
042040 
020040 
020101 
043505 


020040 
020103 
051040 
020040 


020040 
051123 
053440 
020040 


020040 
047440 
044122 

012 
020040 
051123 
053440 


DH3s eASCITI 


eASCI7 


DHSis ASCII 


eASCIZ 


DH60% eASCIT 


eASCIZ 


DH613 eASCIT 


eASCIZ 


D462: 3 8=©, ASCII 


eASCIZ 


7Pc 


vec 


sec 


sec 


7PCc 


WORD Goon 


wo DATA 


REG GooD 


ADDRESS DATA 


REG 6000 


ADDPESS DATA 


Pc OF RHDS1 


JSR WAS 


Pc OF PHCS1/<15><12> 


JSR WAS/ 


BAD /<15$><12> 

DATA/ 

REC VD ILLEGL/<1$><12> 
DATA FUNCTN/ 

REC VD MOOFING/<15><12> 
DATA REG/ 

4€15$><€12> 


SEQ 0227 


MAINDEC 11 -DERPV=B MACY11 27(732) 18eFER©76 16222 PAGE 200 SEQ 6228 
DERPVB.Pi1 POWER DOWN ANI) UP ROUTINES 
19572 954401 049 620040 641520 DH6S: eASCIT 7# ec TEST CONT CONT CONT /€15><€12> 


10573 054306 620040 020040 0642524 

10574 054414 052123 #20040 #27040 

10575 54422 647503 052116 #20740 

10576 054430 020040 047503 052116 

19577 054436 020040 020040 047503 

10578 054444 052116 620040 005015 

10579 054452 020040 620048 #27040 eASCIZ # NO PHCS1 RHAS RHDS! / 
10580 054460 0620040 0420040 047040 

10581 054466 820117 620040 9620040 

10582 054474 644122 051503 620061 

19583 054502 020940 044122 051501 

10584 054519 620048 051040 642110 

10585 054516 630523 900040 

10586 954522 641520 020040 620040 DH663: eASCIZ PC RHNST RHEPI PHER? RHER} RHCS1 RHCS2/ 
19587 054530 20040 044122 051504 

19588 054536 820124 620040 44122 

10589 954544 0651105 620061 920040 

10590 @54552 944122 0651105 620062 

10591 654560 620040 0644122 051105 

10592 054566 0620063 0620040 0644122 

10593 054574 - 651503 629061 #20040 

19594 054602 044122 0651503 000062 
10595 054610 641528 0620040 020040 DH72: eASCIZ /PC RHCST RHCS2 RHDS1 RHDST RHCA RHERI RHWC/ 
19596 054616 020040 644122 51503 

10597 054624 0620111 620040 044122 

10598 54632 51563 620962 620040 

19599 054640 644122 651504 620061 

10609 054646 620040 644122 951504 

10601 054654 620124 620040 44122 

10692 54662 040503 620046 820040 

10603 054670 644122 651185 620061 

10604 054676 620040 644122 641527 


10695 054704 600 

10606 

10607 

10608 054706 eEVEN 


10609 054706 601116 030302 630306 OTis e¥ORD SERPPC, WAITOC, WAITBT, WALTPRE, SADNAT,CS1,% 
1061? @5471% 0630304 01126 69225¢ 

10611 054722 800000 

19612 @54724 001116 630302 030306 DT4: eWOPD SERRPC, WAITPC,WAITBT, WATTRE, SADDAT, WAITTM,O 
10613 54732 030304 001126 630310 

10614 054740 06800600 

10615 54742 001116 004464 0601124 DTS: eWORD SERRPC, REGADR, SGDDAT, SBODAT.® 

10616 @5475@ 601126 999000 

10617 054754 601116 604464 001126 DTé6: eWORD SEPRPC, REGADR, SBODAT,@ 

10618 054762 #07000 

19619 054764 @01116 901172 #889000 DTT: 2 WORD SERPPC,STMP1,@ 

19620 54772 @01116 074470 @91122 DT14: eWORD SERRPC, TSTNM, SBOADR,CS1,CS2,081,ER1.08 
10621 655908 002250 002246 602272 

19622 055906 92252 860000 

19623 655012 001116 902250 602246 DT26: eWORD SEPPPC.CS1,CS2,081,FR1,FR2,ER3,0 

10624 055020 602272 602252 002256 

10625 055026 682264 990000 

10626 855032 01116 004466 601124 DT303 40RD SERPPC, ERWORD, SGDDAT, SBDDAT,@ 

19627 $5040 681126 #90000 


a 


ee 


MATNDEC "11 -°DERPVeB MACY11 270732) 18eFEP©76 16:27 PAGE 201 SEQ #229 
DFRPVB.P11 POWER DOWN AND UP ROUTINES 


10628 AS55044 01116 094464 001124 ODTS1: 2 40PD SEPRPC,REGADP, SGDDAT, SANDAT, ILLFGL,@ 
109629 655052 401126 #92352 aAoeoee 

10630 @SSH6@ O71116 904464 071124 DT60: WORD SFRRPC, REGADR, SGDNAT. SRODAT. SADADR,A 
10631 955966 @01126 01122 aAPaeoe 

10632 055074 @01116 630114 401122 OT61: oWORD SFRRPC,PCJSP,SROADP,@ 

10633 955102 a#aeneo 

10634 055104 001116 030114 901122 DT62: e WORD SEPRPC,PCJSR, SBDANP,@ 

19635 655112 #ne000 

10636 55114 601116 994470 0672250 0DT65: e WORD SFREPC, TSTNM,CS1,AS.0S1.¢ 

10637 55122 @92266 602272 »#8neree 

10638 055130 01116 002252 602256 DT66: eWOPD SEPRPC,FP1,ER2,ER3,CS1.CS2.0 

10639 055136 002264 602250 #72246 

19640 055144 990000 

10641 @55146 801116 @0225@ 002246 ODT72: 2 WORD SEPRPC,CS1,CS2,0S1,0ST,CA-ER1,WC,0 
10642 055154 0602272 0602254 672262 

19643 855162 802252 602242 aAenoee 


10644 55179 Aas ave 000 DFi: eSYTE 0,0,6,0.0,0 
19645 055173 002 ea AGe 

10646 #55176 900 00a 006 OF 4: BYTE OA eA, O,Ao1 
10647 #55201 BOA Aaa eel 

10648 455204 030 eee 900 OFS: eBYTE 0,0,0,0 

10649 055207 000 

1965@ 55210 ea AeA 000 DF6: eBYTE 0.9.0 

10651 55213 060 60 OF 7% eBYTE 0,0 

10652 055215 aaa 88 000 DFi0: eAYTE OeBeA,A,AeAe® 
10653 055220 ABA ee ARQ 

10854 055223 ena 

10655 0655224 aaa vee 000 DF26: BYTE 02050.0,0,0,8 
10656 055227 600 600 ee 

10657 @55232 AGO 

1065*® 055233 800 ABR 000 DF303 ePYTE AeA.9.0 

10659 655236 800 

19660 055237 000 006 ea «62(DFSi: eBYTE Oo eO.A.A 
10661 0655242 ABA ARE 

10662 0655244 000 AGA 000 DF60: ePYTE @,0,8,0,0 
10663 055247 aa aba 

10664 9055251 aoa 000 000 OF6i3: BYTE 0.0.0 

19665 455254 ABA aoe 600 DF62: eSYTE 0,0,0 

10666 055257 AeA 080 @0e@ OF6S: BYTE 0,0,9,0,0 
19667 4552762 000 ane 

19668 55264 aaa FAR o0e DF66: BYTE 020.%,0,0,0,0 
10669 055267 000 ARO 000 

10670 55272 800 

19671 955273 00 000 060 DI'72s ebiTE 020.0 ,A,0,A,80,7 
10672 055276 aga abe eae 

10673 0655301 000 AG0 

10674 055304 eEVEN 

10675 eEVEN 

10676 4 


10677 000001 eEND 





MAINDEC©1 1 -DERPV<B MACY11 
DEPPVA,P11 

AcL s anand 11608 
acu z= 100000 1120¢ 
AOE = 0019000 10528 
AS 002266 12518 
ATA s 190000 10408 

$671 
ATABLE 004552 13136 
ATTENT #04622 13398 
5306 

ava s 900001 10728 
ATi Bs #AA002 160738 
AT2 s 090004 10748 
AT3 Ss 000010 107S¢e 
AT4 8 099020 10768 
ATS sz 900040 10778 
AT6 = 400100 107868 
AT? Ss 090200 10798 
A16 s 990400 10158 
Ai? zs 001000 10168 
BA 062244 1240¢6 
BAT & 000010 9868 
BASECH 032206 1496 

BEGIN 004666 152 

BEGINI 004636 186 

BEGIN2 004652 154 

BIT® = 000001 1258 
BITOO s 600001 115¢ 
BITO1 = 000002 1148 
BIT92 = 900004 1130 
BITA3 = 990710 1128 
BITO4 s 900020 iiie 
BIT?S s #90040 1108 
BITA6 = 090100 1098 
BITA7 = 000200 1068 
BIT#s = 9on400 1078 
BITV9 s 401000 1968 
BITt ss 000002 1248 
BITIA s 802000 1058 
BITI1 s 904000 1048 
BIT12 = 610000 1038 
BIT13 = 620000 1028 
BIT14 s 640000 1016 
BITIS = 100000 1008 
BIT2 s 000004 1239 
BIT3 s 990010 1228 
BIT4 2 800020 12718 
BITS s 900040 1208 
BIT6 s #00100 1198 
BIT? s 000200 1188 
BITR s 690400 1178 
BIT9 s 601000 1168 
BPTVEFCs 090014 1326 
cA 002262 12498 
ce 902304 12566 
CHECK #30116 1601 

CHECKC 030154 7897 





270732) 18eFERS76 162272 PAGE 203 SEQ 6230 
CROSS REFFERENCF TARLE 2 USER SYMROLS 


4750 4922 

82108 9An4 176 36 

2973 3257 3386 3584 4es4 4190 4360 4495 4757 4915 5301 5574 
6151 6614 6784 7910 

1666 

16640 1666¢ 2996 3241 3400 3583 4065 4203 4373 4506 4763 4927 
$566 5675 6155 6618 6798 


8932 

6984 

64130 

13538 9276 

13478 

1356¢ 

2014 2130 $es4 6137 


124 

123 

122 

121 

120 

119 

118 

117 6508 

116 6516 9690 
$833 6117 
$833 6117 6676 
8523 


$633 
7992 


0996 19641 
9436 
78930 
79918 


MAINDEC211-DERPV=B MACY11 27(732) 1@°eFER<©76 16222 PAGE 204 SEO #231 
DOFPPVB.PI! CPOSS REFERENCE TABLF ©©* USER SY“ROLS 
CHECKT #30140 1970 2096 2198 2293 2425 2559 2618 2655 27943 3099 31865 3343 3472 


3518 3709 3844 407 4143 4250 4314 4452 4604 4697 4667 $034 5161 
$246 $391 $531 $709 5737 $e14 6031 6a98 6241 6394 6567 6714 6907 
6992 7083 7150 7268 7449 7575 76968 

CHREG 0630732 1864 2002 2009 2118 2125 2968 2977 2986 327¢ 3229 3245 3252 3374 
3381 3393 3569 3576 4049 4058 4145 4196 4355 4366 4480 4490 4499 
4731 4743 4782 4901 4910 528e 52*9 $296 $312 5560 $569 $361 $649 
$856 $866 $879 6132 6139 6146 6159 6602 6609 6624 6635 6776 6779 
6791 6602 81380 

CLARFA 027730 1936 2055 2236 2253 2260 2479 2710 28623 2914 3066 3154 3299 3304 
3310 3658 3676 3811 3974 4iit 4281 4420 4s79 4645 4664 4013 4820 
4627 49869 4996 5156 $214 $352 $359 $492 $499 s6es $770 $775 $782 

. $989 6006 6060 6065 6205 6210 6358 6364 7124 7222 7242 7423 7832 

7549 779308 

CLDISK 930060 1660 1710 1750 1797 1918 2044 2193 2221 2385 2553 2567 2605 2910 
3048 3283 3466 3497 3642 3607 39586 4105 4244 4276 4414 4563 4630 
4799 4834 4972 5en3 S140 $207 $347 5486 $661 5671 5960 $972 6200 
6352 6509 6536 6692 6837 6869 6949 7969 7106 7213 7367 7405 7803 


786738 

CLR =z AANO49 9860 7678 

COMPAR 432070 2156 2521 2756 3019 3428 3792 3928 4955 $103 $4sé6@ $619 $917 6322 
6482 7316 7609 63750 

COMPEG 031040 1876 2021 2137 2357 2503 2737 2890 3002 3134 3263 3407 3589 3772 


3909 4e74 4210 4380 4513 4776 4935 $073 $327 $437 5600 5694 6177 
636 6466 6654 6820 61978 


CRLF 2s #90200 8645 8682¢ 

CSF = #00002 11678 

CsUu)  & 880010 11998 

csi 002250 12448 69390 6940 702?2@ #8=©7023 7191 7302 agaea 19609 10620 10623 10636 10636 

10641 

Cs2 062246 12418 8940 19620 10623 106386 10641 

DB 092240 12368 

pock = 199000 10568 

OCL 3s 840100 11618 

DCLEAR 002316 12728 

DE1 & 690040 16308 

DFF29 = 900002 10268 

DFFS s 900001 10258 

OF! 055170 291 303 314 196448 

DF10 055215 368 382 396 412 196526 

OF 26 055224 531 106558 

DF30 455233 $52 $71 $87 604 665 699 723 789 795 902 913 106560 

OF4 055176 327 106468 

DFS 055204 337 422 434 448 462 474 462 489 499 see $19 542 $63 
“$61 $97 615 626 640 6$2 677 690 712 782 771 763 eee 

649 661 927 106486 

OFS! 955237 738 106608 

DF6 055210 347 106508 

DF6a 055244 825 106626 

OF61 455251 633 166648 

DF62 055254 641 106658 

DF65 035257 673 106668 

DF66 055264 691 196668 

OF? 055213 355 106516 

OF72 055273 943 954 961 106718 


OH1 952666 284 296 308 104718 





— 


MAINDFC-11°DERPV<-B MACY11 27(732) 1@eFER©76 16:27 PAGE 205 SEO #232 

DEPPVB.P11 CROSS REFERENCE TABLE ©- USER SYMBOLS 

OHI 053357 360 374 388 a4 104778 

DH26 053536 $23 104968 

DH3A 0$3715 $47 $69 5865 602 663 697 721 757 793 9n0 911 105168 

On4 053026 321 104388 

DHS 053151 332 417 429 443 457 469 ana 4e7 497 506 $17 540 561 
$79 595 613 6274 638 650 675 666 710 780 769 761 606. 
647 659 922 194528 

DHS1 954007 732 10S268 

DHE 053250 343 104638 

OF6éa 054126 819 105408 

DH61 054243 629 105546 

DH62 054326 637 105648 

DH65 054401 667 10S72¢ 

DH66 054522 6e3 145868 

DH? $3327 382 164728 

DH72 654610 934 952 989 105958 

DIGB 3s 000004 16278 

DISPLAs 177570 47a 85370 667S5e 

OLT 8s 100000 9980 

DL64 s 900020 102986 

D¥D 8s 090001 10628 6737 6807 

DPR = 960400 10338 1653 2333 2630 3556 3748 3883 6288 6438 7911 

DPFY s #00200 16326 1653 2438 2580 3492 3540 4271 5762 7101 7396 7826 7911 

OST 002254 12468 6988 10641 

DS! 002272 12530 7189 1300 6956 10620 10623 19636 10641 

oT 002274 12546 1691e 9960 

OTE ss #10000 10558 

OTSY s #01900 1066¢e 

OT! 054706 296 302 313 106098 

OT10 954772 367 381 395 411 106206 

DT26 $5012 5308 106238 

DT30 055032 $51 s7e $86 603 664 698 722 758 794 901 912 106268 

oT4 054724 326 106128 

oTS 054742 336 421 433 447 461 473 ae 488 498 $e? $18 $41 $62 
see $96 614 625 639 651 676 6869 711 731 770 792 607 
648 660 926 196158 

0TS1 AS55044 737 196268 

DT6 054754 346 106178 

DT6A 055060 824 106308 

OT61 055074 832 106326 

OT62 055104 64a 1963408 

DT65 55114 872 1063660 

DT66 055130 890 106360 

DT? 954764 354 106198 

DT72 055146 942 953 960 106418 

DVA 8 004000 10168 1730 1044 2324 2629 3547 3739 3674 6271 6429 7903 

ECH ss 060100 1649¢ 

EC! Ss 004000 1133¢ 1955 2073 2279 2399 2400 2401 261 2602 2603 2042 2931 308s 


3172 3327 3328 3329 3695 3829 38630 3631 3993 4129 4299 4300 4301 
4437 4436 4439 4598 4683 4651 4652 4653 $0206 5621 $022 $175 $232 
3376 $377 $378 $$16 5917 $518 $703 $798 $799 5800 6025 6063 6226 
6227 62268 6380 6361 6382 6901 6985 6986 6987 7144 7261 7262 7263 
7443 7568 7569 75370 

5S | 002300 12568 9944 

ECc2 002302 1257e@ 9052 

EMTVECs 099030 13S¢e 1366e 1367¢ 1473@ 15000 





MAINDEC=1 1 -DERPV-B MACY11 27(732) 18-FEB=76 16122 PAGF 206 SEO 0233 
DFRPVB.PI1 CROSS REFERENCE TABLE <= USER SYMROLS 
EM 036452 2802-92938 
EM1@ = «© 37202 358 90-9353 
EM11 «937251 371: 93608 
EM12 37356 3850-93728 
EM13 #37464 399 = 93848 
EM14 =: 37603 415 = -93988 
EMIS —-@37655 425 (94068 
EM16 «=: 40016 43794240 
EM17 = (40144 451 94408 
M2 036501 294 «=: 92978 
EM20 = 840301 4650-94578 
EM21 = #40450 4700-94788 
EM22 040523 48S = (94838 
EM23 940576 492 94918 
EM24 = 940745 sez. 98098 : : 
EM25 = @41110 $11 95278 
EM26 §=—-@41272 $22 95478 
EM27 = @ 41362 534 9 95578 
EM3 036570 306 = 93078 
EM39 041600 S45 95838 
EM31 = @ 41660 555-9918 
EM32-@ 42075 $66 696168 
EM33 «042202 $74 96288 
EM34 9=—-_-@ 42404 584 ©=— 96528 
EM3S = (42430 590 89-9668 
EM36 = 42646 600 8=—_- 96818 
EM37 =: @ 42723 607 =: 96898 
Eva 036651 31793168 
EM4a@ = 943140 618 = 97148 
EM41 =: 43347 629 97388 
EM42 43630 643 97768 
EM43 044106 655 98008 
EM44 0 944444 668 90399 
EM45 «© 44736 | 680 98720 
EM46 =: 45232, 693 99058 
EM47 45345 702 99198 
EMS 036760 330 «= «93288 
EMS® =: 945627 71S = 99518 
EMS1 946046 7260-99778 | 
EMS2 946313 742 «100068 
EMS3 46564 755 100368 
EMS4 = 46652 762 100450 
EMSS = «947117 774 «©10075¢8 
EMS6 =: 47405 786 ©6101068 
EMS7 §=—«--@ 47615 798 «= 101328 
EM6 037032 3400-93388 
EM60 $0107 811 101668 
EM61 950516 828 036 «6102128 
EM63 ©0602 845 102219 
EM64 9=—_-@5 0655 853 102290 
EM6S =—«-- 951074 866 102548 
EM66 = «51116 877 102608 
EM67 =: @5 1327 093 102868 
EM? 037120 3500-93448 
EM79 = §=—-@51603 904 «=103168 


eM71 952011 916 103428 





MAINDECe1 1 eDERPVeR 
DERPVB.Piil 
EM72 052252 
Ev73 052343 
E74 052513 
ERFLG$S 404616 
EPR S 040000 
ERRVECs 900004 
ERWORD 004466 
ERI 002252 
ER2 092256 
ER3 002264 
EXTi s 060001 
EXT10 = 600010 
ExT2 s 000002 
EXT20 2 000020 
ExT4 s 000004 
EXT40 s 900040 
FEN 3 090200 
FER 3s 000020 
FILL 030776 
FILLRE 0627762 
FINACC 004550 
FINALA 004546 
FIRST 004620 
FLHEAD 027704 
FMT22 = 8910000 
FUTABL 402310 
GNS Ss eeceee 
Go 2 090001 
GPV Ss #OAF190 
HCE s 600200 
HCI 8 092000 


930 
950 
957 
13338 
10398 
6153 
1260 
12968 
12458 
12478 
125¢¢@ 
10878 


19888 
10918 
10898 
10928 
11138 
10478 
81609 
1995 
2717 
3216 
4748 
$416 
6450 
13088 
13078 
133408 
1925 
4636 
717648 
11348 
2601 
3172 
3994 
4684 
$3768 
6084 
6996 
7570 
12668 
148 
1569 
6277 
6468 
9018 
9236 
10128 
2665 
4155 
5753 
7162 
10266 
10506 
11320 


MACY11 27(732) 
CROSS REFERENCE TABLE =< USER SYMBOLS 


103718 

103818 

104906 
6719¢@ 
2975 
6616 
1475¢ 
a36ae 
7032 
6972 
89ee8 


18 °FER<76 


88698 
3259 
6786 
1482¢e 
83940 
7033 


10623 
10623 


3386 
7169 


10626 

8964 
19638 
10636 


4056 
7300 
8499 


16:22 PAGE 207 


4192 
asane 


19623 


4497 
agese 


19641 


4759 


er a rere 


4917 $303 
2486 2489 
3123 3126 
3698 3901 
$067 $273 
6171 6292 
3649 3669 
7114 7232 
2280 2399 
3084 3665 
3830 3631 
4598 4599 
5176 $231 
6025 6026 
6900 6901 
7443 7444 
1490 1494 
7670 7676 
44s 6449 
8966 6994 
9232 9233 
2572 2629 
3739 3856 
$258 5403 
6742 6919 
3173 3329 


$576 


5673 


MATNDFC+11-DERPVeR MACY11 270732) I8eFER<76 16:22 PAGE 208 SEQ 0235 
DERPV®.P1! CROSS RFFERFNCE TABLE «* USER SY¥ROLS 
3994 4130 4301 4439 1509 46R4 4Asy 5022 5176 $233 5378 5518 5704 
Sere 6026 oeR4 6228 6382 £902 6987 7145 7263 1444 7870 
HCRC = apogee 10Sie 
uT = a9ne11 R643 RoAIe 
HT, = 015440 1835e 1840 19878 1992 21048 8§©67109 22148 2219 23158 2320 24368 2441 24638 


2468 25788 2583 26698 2674 26948 26099 28778 2877 796¢8 2965 31168 3121 
32°56 3210 33608 3365 34908 3495 353R8 3543 37308 31735 36650 3870 40268 
4031 41628 4167 47698 4274 43328 43137 44q7ie 4476 462386 4628 47168 4721 
4868 4891 50538 558 S24ue 5205 52658 $27a $4108 $415 5$508 5555 57268 
5733 57648 $765 Se4is S46 60508 6055 61248 4129 62628 6267 64208 6425 
65938 65986 67488 6753 69298 6934 7e138 7018 70998 7104 71768 71814 72678 
729? 73968 7401 74738 7478 75248 7$29 75988 7603 

TAE Ss aAA2vaa 1¢@538 4928 4963 4164 4201 4334 4371 4473 4504 

IF z 8Aaiea 10138 1717 1757 1989 2096 22708 - 27305 2324 2418 2429 2572 2629 2635 
2664 2°65 2953 3109 3197 3353 3482 3530 3547 3721 3739 3656 3674 
4019 4155 4263 4325 4464 4616 4709 4a79 5046 5193 $258 5403 $543 
$771 $753 §826 6¢43 6110 6253 4271 6407 6429 6590 6919 1004 7693 
7162 728@ 7390 7461 7517 7591 ee18 8030 RAaR Mii 


ILF = 020001 10438 6607 

ILLEGL 602352 12868 6528e 6542 6553 6561 6589 6630 149628 

TLR zs AAEOA2 19448 

IOTVECS 890020 1338 13640 13656 

IP = 000100 9298 3227 4747 $319 532¢ $428 $429 §592 5593 6559 6570 6642 6814 
6815 

IXe = 994000 11178 

KIPAR@= 172340 1918 

KIPAFIs 172342 1928 

KIPAP2s 172344 1938 

KIPAR3= 172346 1948 

KTPAR4= 172350 1958 

KIPAFS= 172352 1968 

KIPAR62 172354 1978 

KTPAP72 172356 198¢@ 

KIPDRO@s 172300 18¢8 

KIPNPis 172302 1818 

KIPDP?s 172304 18628 

KIPDR3s 177306 1838 

KIPDP4s 172310 1848 

KIPDRSs 172312 18Se 

KIPMF6s 172314 1868 

KIPDF7s 172316 1678 

LA 002306 12598 9028 

LPT Ss 842000 1935¢@ 1989 2007 2123 4761 4919 7910 

LT, = ananee 18358 18490 19878 1992 21048 2109 22148 2219 231568 2320 2436¢ 2441 24638 


2468 25786 2583 26698 2674 26948 2699 26728 2677 29608 2965 31168 312; 

32058 3210 33608 3365 34908 3495 35368 3543 37308 3735 386S¢e 3870 40268 
4631 41628 4167 42698 4274 43328 4337 a4a7ie 4476 46230 4628 47168 4721 

46868 4691 50530 5058 52008 5205 $265¢ $270 54108 $415 55500 $555 $7260 
5733 57608 $765 Se4ie $846 60508 6055 61248 6129 62628 6267 64208 6425 

65938 6598 67488 6753 69296 6934 70138 7018 70998 7104 71766 8§=67164 72070 
7292 73968 7401 74738 7478 75248 7829 73968 7603 


MCLK #s& 800902 10638 
MCPE = A20000 10198 
“HS = 001000 11158 
MINK 8 000004 10648 6738 6739 6756 6757 6760 6761 6764 6765 
MMVEC s #90250 1698 
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MAINDEC©11eDERPVeR MACY11 27(732) 18eFERe76 

DERPVB P11 CROSS REFERFNCFE TABLE ©- USER SYMBOLS 

MOL s 910000 10378 1653 2333 2630 

MPE s 070400 9918 

MR 002270 12528 9020 

MPD 8 800020 1@668@ * 

MSE zs 998020 1110¢ 

MSTCK = 690019 10658 

MWP 2 000040 10678 

MXF = 001000 9928 6358 6568 6577 

NFD zs 010000 9956 

WEM 2 004000 g944 

NHS s 002000 11168 

NOPERA 002310 12696 

NOPUSH 064610 13268 1347@ 13S51¢ 13540 

NOUNIT 004606 1322¢8 15816 1592 16240 

NUNIT OA4606 13248 16296 16300 

OCYL = 109090 11636 

or 002260 12488 9012 

OFREV = 900200 113168 

OFSET O3AA4G 70668 

OFSFTC 002342 128628 7869 

OFSTVL 04474 13038 

OFIFG = BRRAR4 11268 

OF20¥ & 900010 11278 

OF25 3s 000001 11248 

OF402 & 000020 11268 

OFS® & 899002 1125¢ 

OFe”e = 8000460 11298 

OPEPSE 031176 82598 8726 

oP!I s 620000 10568 6796 7033 

oR 3 090200 9908 3225 4745 $294 
6814 6815 

PAP 2 000010 10460 

pc 3%900007 $98 136Se 1$37e 16608 
20446 2086e 21466 2165e 
25530 25598 25878 26186¢ 
30488 3099¢ 31420 318656 
3599e 36426 3709@ 37816 
41430 4219¢ 42440 42500 
4697@ 476Se 47996 48346 
$181¢ $207e $246¢ 53360 
S671¢ $709¢ $737e Sei4e 
631S¢e 63316 6352¢e 63940 
68378 686690 69078 69420 
7213¢ 72660 7298¢ 7326@ 
7861 7917@ 62098 8219 
672Se eeese 9122@ 9275 

PCJSR 030114 76888 76930 76940 769¢¢ 

PCLAUF 02234 12298 79916 

PCLCSR 802232 12268 1434 7965¢@ 719926 

PCLCTR 002236 12308 71966 

PGE & 092000 9938 

PIP 3s 920000 103680 

PIRQ s 177772 ase 

PIROVEs 900240 1396 

PKACK 092346 12648 1803 1624 1843 

PLU s A20000 1119¢ 


3556 


6640 


16279 


$319 


17100 
21938 
27460 
3271¢ 
3801¢ 
42768 
48670 
$3470 
59086 
6475¢ 
69696 
73670 
83300 


7a99e 


3748 


76918 


1750¢ 
21986 
2765@ 
3263¢ 
3807e 
43140 
49440 
$391¢ 
$926¢ 
64910 
6992¢ 
7405e 
8395¢ 


3883 


$428 


17918 
22218 
280S¢e 
3343¢ 
38440 
43890 
49648 
$4466 
$9660 
650968 
702S¢@ 
74490 
86500 


10634 


$429 


1797e 
22930 
285Se 
34166 
39160 
44140 
49720 
$4670 
$9720 
6536¢ 
76350 
75030 
86570 


6438 


18601¢ 
236608 
26980 
3436@ 
3937@ 
44520 
5QG3e 
$4060 
6631¢ 
65670 
FO69e 
787S¢e 
0663e 


7911 


1685¢e 
238Se 
29160 
34668 
39580 
48220 
$0340 
$S31¢ 
68986 
6663¢e 
7e83e 
7618¢ 
8677e 


19186 
2425¢ 
29430 
34720 
4G07e 
45630 
$0620 
56090 
61916 
66920 
7106e 
77150 
0679e 


197@¢ 
25110 
30160 
34970 
408630 
46048 
$112¢ 
$6260 
62068 
67140 
71560 
77180 
86068 


6750 


20300 
25300 
30278 
35180 
41050 
46398 
$1400 
$6616 
62410 
68298 
71670 
77320 
e711¢ 


MAINDEC-11°eDERPVeB 
DERPVB,.P11 

PRE s A20A20 
PRITEM 034666 
PPOG s 071900 
PPA s aananege 
PRI s 900940 
PR2 =z 699100 
PP3 = 490140 
PP4 s 4990200 
PRS 2s 90074¢ 
PP6 Ss 90°300 
PP? s A90340 
PS 2 177776 
PSEL s 900000 
PSU 2 AAAABI 
Psw = 177776 
PUTREG 631764 
PWRVEC2 990024 
ROCHR # 104412 
ROLIN & 104414 
RDOCT & 104416 
ROY 2 700200 
RFADAT 407334 
RFADIN 002350 
RFCALIT 002314 
REFOR 002336 
REGADP 004464 
REGSAV 034524 
REGSA1 834532 
REINTO 9003420 
RFLEAS 602320 
RESVFCs 900010 
RETCL 002344 
RHAS 002210 
RKBA 0A7166 
RHCA 042204 
RHCC 092226 
PHCS! 902172 


1159¢e 
1442¢ 
10348 
628 
638 
640 
6Se 
668 
673 
6Ae 
698 
426 
10178 
1156¢ 
430 
6942 
1348 
6771 
8816 
1454 
10148 
2962 
$412 
7475 
1279¢@ 
6229 
1286S¢ 
12718 
1280¢ 
$045 
1295¢e 
36898 
86668 
1473 
12900 
2926 
3930 
$360 
6324 
1273¢ 
1298 
12838 
12128 
12008 
4178 
65730 
12108 
12198 
12058 
25740 
3230 
4157¢e 
4807 
$561 


6140 | 


7014 


MACY11 27(732) 
CROSS REFERENCE TABLE ©* USER SYMROLS 


76900 


7025 
1370¢¢ 
92350 
92368 
6267 
1717 
3118 
$352 
7600 
2075 
6252 


2207 
2417 
6986 
1519@ 
62770 


88708 
1937 
3021 
4282 
$372 
6365 


1511 
1999 
4348 
6645 
2010 
2730 
18030 
26370 
3355¢ 
41862 
4902 
$665 
625Se 
7022 


18 @FERO76 


82618 


7035 
137146 


6298 
1730 
3207 
5736 
7903 
2095 
6270 


3481 
2663 
7003 
186560 
6286e 


2068 
3067 
4295 
5420 
6376 


1944 
2115 
4725 
67010 
2126 
4770 
18627¢ 
2695 
3361 
4263 
5e4ce 
$7230 
6263 
70950 
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1379¢ 


7187 
92478 


6424 
1757 
3362 
$643 


7092 
3330 
7264 
16590 
64356 


2116 
3311 
4421 
5460 
6455 


6415¢ 
2349 
gngs 
68612 
4767 
$eso0 
19862e 
2724 
3394 
4327@ 
5954 
$729 
64090 
71640 


90718 


1716 


7298 
92480 


9441 
1644 
3847 
6052 


2952 
6496 


7389 
3352 
7279 
23300 
64440 


2158 
3323 
4433 
5500 
64qRG 


2496 
$065 
63470 
4924 
6133 
20980 
26676 
34840 
4352 
$195¢e 
$7550 
6421 
7177 


1756¢ 


92378 
216 
3732 
6126 


444— 
6428 


7516 
3632 
7871 
2339¢ 
82180 


2261 
3372 
4628 
$512 
6981 


2721 
$277 


6721¢ 
6460 
2105 
2673 
38320 
a466e 
$201 
$620e 
6598 
7282¢ 


17926 


6317¢ 
9271¢ 


2216 
3867 
6264 


4461 


3655 
7890 
26430 


2395 
3430 
4047 
$621 
7223 


7641¢ 
7967 
22100 
2955¢@ 
3570 
§4aq 
$26n6 
$042 
6625 
7268 


24438 


92720 


2317 
4625 
6422 


$379 


3873 


2657¢ 
19617 


2494 
3678 
4096 
$783 
7257 


3127 
$006 


78S59e 
6323 
23078 
2961 
37230 
46180 
$266 
$es7 
6742¢ 
73920 


26778 


2465 
4718 
6595 


5402 


2523 
3677 
4957 
$794 
7318 


3217 
6169 


83346 


2316 
2978 
3731 
4624 
$261 
5965 
6771 
74630 


7667° 


2629 
46668 
6931 


5519 


4324 


2897 
3793 
4997 
$067 
7833 


3371 
6297 


2431¢e 
3iii¢ 
36560 
4a7iie 
$405e 
6645e@ 
69216 
7474 


2671 
5esS 
7015 


$342 


4654 
37450e 


2722 
3812 
$816 
$919 
7564 


3764 
6454 


24560 
3117 
3066 
4717 
$411 
6051 
6930 
75190 


67500 


2696 
$262 
7178 


4678 
37540 


27388 
3625 
5066 
6222 
7611 


2464 
3199@ 
4021¢ 
4732 
5s4Sse 
61120 
6939 
75930 


SEQ 0237 





ee 


MAINDEC?11 -DERPVoB MACY11 27(732) 18eFER©76 16272 PAGE 211 SEQ 0238 
DERPVP Pil CROSS REFERENCE TABLE © USER SYMAROLS 
7643 7860e 7869 7673 ao18 RAIA 8°98 Bilt 63530 04186 6451 
RHCS?2 @A2170 12018 1545 1598¢ 3221 4044 4180 4359 4741 $29¢ 5318 §427 $591 6636 
6749 6613 7AaA74 83500 
RHDR 092162 1198¢@ 1477 8425 
RHDST 002176 12078 2016 2132 2352 24478 2496 26760 27277 2896 2993 3130 3238 3390 


3767 3902 4068 4193 4363 4488 4772 4930 5068 5345 $425 5578 $663 
6166 6300 6457 67120 6788 78420 63450 

RHDS1 902214 12148 1836 18665 1988 2003 2119 2215 2437 2579 2670 2969 3253 3382 
3491 3539 3577 4050 4186 4270 4356 4491 4733 4911 5297 5570 $761 
$867 6147 6614 67860 7190 7397 7525 7675 


RHDT 902216 1215¢ 1599 1601 1613 1685 1689 169} 

RHECI 092222 12178 

RHEC2 002224 12188 

RHE} 002174 12068 1548 2987 3246 3375 4027 4089 4163 4197 4333 4367 4472 4500 
4749 4921 5313 $582 $aee 6160 6603 6792 7032 7676 

RHFR2 002200 12086 

RHER3 002206 1211¢ 

RHLA 002230 12208 7968 

RHMP 002212 12138 6736 6803 

RHOF 092202 12098 67200 718686 8351e 

RHSN 002220 1216¢@ 1678 16868 1690 

RHWC 002164 11998 1810 1964 1996 2081 2112 2287 2346 2409 2487 2611 2718 2656 


2686 2938 3094 3124 3179 3214 3337 33686 3511 3703 3761 3638 3896 
4001 4040 4137 4176 4308 4346 4446 4691 4728 4861 4698 5029 $062 
5240 $274 $385 $422 $825 $608 see9 6092 6172 6235 6293 6366 6451 
65400 6563¢ 65728 6561 6649 6699 6725 6611 7626 6135 8218 0321 6323 


63460 
RYR = 9A0R04 104588 5894 6164 
RPTRP1 010040 1712 17298 
RPTRP2 010136 1782 17678 
PPVEC @92160 9698 1361 1741 1751 1616¢ 1972¢ 20860 2200¢e 22%6e 24240 24490 2561¢ 26260 


26818 28578 29456 31@1¢ 3188e 3345 3474¢ 35216 37126 3847@ 40100 4146¢ 42520 
4317 4455e 46078 47000 48700 SO37@ Side $2498 53948 $5340 S712e S744@ S8170 
6034e 6101 6244e 6397¢ 6919e 69958 708S*® 17153 7271@ 7382@ 7452e v7Se80e 78780 
6435 6442e 8457 8471¢e 

RPVFECT 633010 1362 8465¢ 8471 

PP4VEC 004472 12988 1437@ 1441¢ 1616 1972 2088 2200 2296 2449 2561 2683 28657 2945 
3101 3188 3345 3474 3571 3712 3647 4018 4146 4252 4317 4455 4607 
4706 4870 $¢37 $184 5249 5394 $534 $712 $744 $617 6034 6101 6244 
6397 6910 6995 7085 7153 72714 7382 7482 7506 7878 

RUW 432024 1944 2063 2268 2390 2592 2631 2921 3074 3162 3317 3684 3019 3962 
4119 4269 4428 4867 4672 4641 $010 5164 $222 5367 $507 $692 $789 
6014 6073 6217 6371 6890 6975 7133 7251 7432 7558 83448 

Ra BLAAANEO 508 1381¢ 138626 13830 1476¢ 1479 1547 1551 15#Se iseee 1593¢ 1626 166S¢e 
1666 i7ite§8=—617120 i713 i7Ssie 1752 1753 16090 18316 1846 1849 1864e 1676¢ 
1925 1936¢ 19440 1963 199$¢ 1998e §=©2¢°28@ 8=©2009% 8§=©62015¢ 2021® 20518 2055 2663 
2080e =€6©2111@ 21148 21188 21258 21316 21378 21568 22278 #22368 2244@ 22530 22660 
2268e 2286e #23108 2326 2329 234Se® 2348@ 23518 23578 23900 2468¢ 24728 24790 
24868 2489 24926 2495@ 2593 2521¢ 2568¢ 25928 26108 26228 2627¢ 26298 2639 
2642 2703@ 2710¢ 27178 27208 2723@ 2726@ #+#+27298 27378 27568 # 2812 2623 28316 
28498 2879¢ 2862e 2885e 28908 29148 29218  2937@ 2968 29778 2986@  2992¢ 36620 
30190 3055S 39666 30740 30930 31230 3126 3129¢ 31340 31540 3162e@ 3178¢ 32130 
3216 3220¢ 3229 3237¢ 3245¢ 3252 32630 32900 32990 3304e - 3310¢@ 33178 3336 
33678 33700 33740 33016 33890 33930 34070 34280 34670 3503¢ 3516 3534@ 3949 
3552 3569e 3576 35690 36490 36560 36690 367608 36640 3702@ 37268 3741 3744 
37680 37630 3766 3772¢ 37920 3811¢ 38190 3637e 38661¢ 3876 3679 3e9se 863698¢ 





MATINDFCe1 1 -DERPVeB MACY11 270732) 1@eFFRe76 16222 

OFRPVB.PI1 CROSS REFERENCE TABLE ©- USER SYMROLS 
39016 39096 3976¢e 3965¢ 
41850 41966 42108 4259@ 
44800 449008 44998 45136 
47240 4727@ 47310 47408 
4841e 4860¢e 46940 4acre 
Saige SA28e $0614 50640 
$2730 $276@ S$28ee 5289 
$421¢ $4240 $4376 54566 
$6196 5676¢ 5oAaSe §$692¢ 
$e49e S360 $8626 Sa66e 
s9nAe 598690 $9976 60066 
61396 61468 6159¢ 6165¢ 
62178 62340 62586¢ 6273 
6367e 6412¢ 6431 6434 
66026 6690 6624@ 6635¢@ 
6709e 67240 67368 67378 
6779¢ 67678 6791¢ 68028 
7222¢ 72328 72428 72518 
76936 7695 77238 7727 
78060 7824 7825 78308 
7936 79430 7993 799708 
60a79 6061 aae2 6eR3 
8166 6167 6168 8178¢ 
8329 8344 6345 8346 
838Se 640908 8425¢e 04270 
8637 864Re 6013 6817e 
9086Se QARbe 9ne7e 9e88 
9215S 9216 9217@ 92180 

R1 zyavaoeai Sie 1477@ 14786 1484 
1717¢ 1730 1757e 18631 
3553 3726 3745 3661 
769408 7695 7698 7765 
7826¢@ 78270 78629¢@ 76730 
80360 6037 AA46e 8047 
6170e 6177e e198 8203¢ 
e3e01e 6389 8392 8396 
6619¢ 6627e 8829e e316 
9250 92690 

P2 28A90002 $2e 1476¢ 1545¢ 15466 
7823 782S5e 7677 78280 
0036 6e45e AA46 eeS4e 
82040 6214 6217 A221 
6396 84070 6557 85688 
88286 88386 e632e 8638 

Ry 38000003 S3¢e 1566¢ 1587e 15906 
3535 3562 3727 3754 
7799¢ 7800 7803¢e 7675e 
80106 60126 8e15Se 60530 
e171¢ 6175e e200 820Se 
8566¢ A567 aseie 85640 
#779 e761¢ e7830e 9161 
92676 

R4 ZLANAVOSE S40 1546¢ 15496 78760 
6386e 8367e 6388 84050 
9195e 9253 92766¢ 

RS 22000005 5Se 15916 1998 1607 


PAGE 212 
397468 39920 
42818 42898 
45708 45798 
47480 47526 
490186 49100 
S$e678@ Sa736 
52968 53040 
$4926 §499e 
$741¢ $770¢e 
5879@ Seaase 
60140 6nnne 
61688 61714 
6276 67920 
6450e 64530 
66448 66480 
6738@ 67390 
6820¢ 68790 
73160 74138 
717239 71732 
7641 7842 
7998 aenAa 
ene4 61200 
8203 8204 
6347 8349 
A428 6555 
e018 0621 
9098 9092 
92198 9249 
isiie 1$12¢ 
1856 2310 
3886 6258 
77678 7772@ 
7880e 7901 
aesse R131 
e214 8216 
Range 0426¢ 
e340 6637 
15506 7766 
7a740 787Re 
8132 81340 
82330 6320 
6572¢ as75s 
68390 e251 
162¢¢ 1832 
3862 arg 
7895 7900 
9ea77 8ee7e 
6226¢ 62320 
85930 85940 
91700 9176¢e 
8164 81686 
9162 91640 
1620 1622 


400Qe 
43070 
45A7e 
47668 
49208 
S1i@ite 
$312¢ 
$5070 
§775¢e 
Senne 
60658 
61778 
6296¢@ 
64566 
66540 
67568 
6890 
742730 
7767 

7845¢@ 
8e0) 

8133 

8205 

6351 

6565¢e 
e64ie 
9093 

92700 
1513 

2330 

6277 

777608 
7906 

61330 
6271 

84298 
RO4G0 


7768¢ 
7879¢@ 
81410 
83230 
eSa2e 
92680 
1659 
6259 
7913 
80900 
e378 
65966 
91770 


e171 
9165 


40498 
4355e 
46368 
4769¢@ 
49230 
§1486 
$3276 
55240 
§782¢e 
$a940e 
60736 
6186 
62998 
64590 
6700e 
67570 
6924¢ 
7432¢ 
7768 
7889 
aa? 
6134 
6206 
6353 
569 
Hagge 
9696 


1$17 
2639 
6412 
7794 
7931 
8135¢ 
62340 
6556 
9103 


77730@ 
7932 

61430 
6325¢ 
858630 


2311 
6286 
7933 
6092¢e 
63636 
6767 
918600 


61740 
91660 


49566 
43666 
46456 
4776@ 
4935¢e 
$156¢e 
$3520 
$$606e 
§74a9¢e 
§903 

6agie 
6147@ 
63960 
64660 
6701 

67600 
69758 
7532¢ 
7772 

7861@ 
6003 

8136 

e2070e 
83540 
6ses 

9074 

9104 


1919 
2641 
6435 
17970 
79340 
6136 
4319 
65690 
91046 


777S¢e 
7935¢e 
0162 
63270 
asng 


2339 
6413 
793606 
PAISe 
6386 
0768e 
916Se 


8201 
9167 


1655 


40746 
436fe 
4655¢@ 
48Ange 
4955e 
$1640e 
§359¢e 
55690 
Searve 
59740 
61168 
61868 

6322¢ 
6482¢ 
67030 
6761¢ 
79e9¢ 
78410 
777708 
7868 

aana 

6138 

62350 
638) 

RS AG 

9ATSe 
91060 


15440 
2643 
6s9ie 
7eee0e 
7937 
81400 
8322¢ 
8570 
9109 


7795 
7937@ 
61660 
6377 
85890 


2653 
6444 
79380 
91190 
6394 
6769 
91860 


4iii¢ 
44200 
46640 
46130 
4962¢ 
$2146 
$3676 
$$77@ 
$632¢ 
59A5 

6117¢ 
61908 
6356e 
65160 
670S¢e 
6764e 
71140 
75490 
7797 

7876¢ 
0e56e 
0140 

6318 

6362 

65990 
9076e 
9107 


1553 
2687¢e 
67170 
780Se 
79420 
01440 
03240 
e574 
9113 


77980 
7941¢ 
61720 
8382 
es9ove 


2655 
6925 
719400 
6163 
A4oie 
6772¢ 
9167 


6219 
9182 


41360 
44450 
46908 
40270 
49960 
$2390 
$4180 
$6000 
$835 

$917¢@ 
61320 
62108 
6371¢ 
638Q08 
6707¢ 
6779@ 
71330 
76090 
7799 

7935 

ne7ee 
6165 

6324 

0304 

0636¢ 
99048 
9214 


1894 
3534 
7009 
78240 
9002e 
81630 
6376 
8014 
91200 


76040 
60030 
0199 
8393 
68200 


3486 
7796 
beere 
6170 
esse 
6777 
9252 


6379 
91920 





MAINDEC $11 oDERPV<o8 MACY11 27(732) {%@eFERS76 16227 PAGE 713 SEQ 6240 
DFRPVS P11 CROSS REFERENCE TABLE «2 'ISEP SYMAROLS 


26306 2653 2656 3480808 35350 3558 3561 37278 3750 3753 3862¢ 3885 366¢ 
6259¢ 6282 6285 64130 6440 6443 45178 6522 67060 67108 6925 69490 6950e 
6951 6953 6954 74108 8202 82118 A213 9218 82300 8390 03840 6395 84040 
6559 aS61¢ 85630 aS7He a574e agag a595@ 9163 91696 91716 91730 9174 9175¢ 
9176 91940 9254 9265e 


R6 SRAAPANS 560 $8 13590 13600 1361 
R7 24000907 S7e $9 
SAVFR #30220 1809 1963 2080 2286 2408 2610 28649 2937 3093 3176 3336 3510 3702 


3637 4000 4136 4307 4445 4690 4860 5028 $239 S394 $524 $607 6091 
6234 63867 6580 6724 79308 

SAVERE 04476 136¢ 1811 1878 1965 2023 2082 2139 2288 2359 2418 25065 2612 2739 
2651 2892 2939 29960 3404 3095 3136 3189 32416 3265 3338 34000 3409 
3512 35836 3591 3704 3774 3839 3911 4002 40460 4042¢ 40440 40460 40650 
40660 4076 4136 41760 417860 4160¢ 4182 41930 42030 4212 4309 43460 43480 
4350¢ 4352 4363¢ 43730 4382 4447 44880 45066 4515 4692 47630 4772¢ 4778 
4862 4927 49300 4937 $930 $075 $241 53080 $3208 53216 $329 $386 54290 
54300 $439 $$26 5566 $5930 $5940 $642 saa9 587S5¢e 5696 6693 6155® 6179 
6236 6308 6389 6468 6592 661R® 46100 6656 6726 6798¢@ 6811 6612e 681S¢ 
68168 6872 762708 8138 81400 8210 


s¢ = 1909000 10218 2982 3234 3398 3574 4485 4736 4906 $285 §565 $061 6144 6545 
6555 6565 6574 6629 6775 6940 7023 

sci = 990100 10938 

sci? s ae1ee0e 10968 

sC2 s 890200 1094¢e 

SC20 = aa2000 10978 

sc4 z a004e¢ 10958 

SEECOYM 002340 12816 2571 4262 $752 7860 

SFEKCY 030030 2568 4259 5741 78598 

SELECT 004612 1326¢e 13486 13500 13536 1446 1632 7681 

SFRCH 002322 1274¢@ 240? 2428 2004 2627 2634 3529 3546 7843 

s*1 zs a40000 11628 

SN 002276 12558 1690¢ 2068 

SND1 AAS7A6 1369 14198 

sP stanrngs $80 13630 1455¢ 1456 1457 1472¢ 1463 14960 15160 1607¢e 16130 16220 16570 


1671¢ 16786 168S¢ 1709¢ 1729 1749 1767 17940 18240 182S5¢ 1627 18043e 18440 
1845 1646 1853 1654 1655 1915 1979 19#2¢ 1982 209Se 20960 2096 219¢¢ 
2297@ 2208¢ 2216 23040 230Se 2307 23230 23240 2325 2326 2333e 2334 2335 
24178 2418¢ 2419 2428e 2429 2431 255ee 2571 2572@ 2874 2634e 2635@ 2637 
28¢2@ 2864e  2865¢ 2867 29S2e@ 86829538 2955 30450 31686 31090 3111 3196@ 831978 
3199 3352¢ 3353 3355 34630 34810 34820 3484 3529¢ 35300 3532 3546e@ 35470 
3548 3549 38560 3557 3558 36390 37200 37210 3723 373680 37390 3746 3741 
37486 3749 3758 3855e 38560 3858 38730 38740 38675 3876 3083e 3864 3665 
39556 4016 4019¢ 4921 41¢2@ 41548 415S5e 4157 4241@ 4262@ 42638 4265 43240 
4325e 4327 4411e 44630 44642 4466 45600 46158 46168 4618 a7eee §€=6©647098 8=64711 
40780 «§6=©6©4679¢@ 8§=©6948681 se4se Sse46e 5048 $137@ $192 $1938 $195 s2s7e s$258¢ $266 
$318e $319¢ $321 $402e $4038 5495 $427@ $4280 5430 s463e 55420@ $5430 5545 
$S91° $592e $894 $6580 $728@@ $721¢ $773 $752e@ $753e $5755 s62se s626¢ $628 
5903¢e $907 $9S57e@ 6042e 6743 6045 6109e 61108 6112 6186e 6190 6252@  6253¢ 
6255 6270@ 62718 6272 6273 6280¢e 62861 6282 6349e 64060 64097¢ 6409 64280 
64298 6430 6431 64360 6439 6440 65°6e 6589¢ 6590¢ 6591 6669e 68130 66140 
6816 6866e 6918 69198 6921 7ee3e 76048 7006 7066e 7092@ 7693 7695 7161 
7162e 7164 7279e@ 8=€=86©728¢¢ 8=6©7282 7364e 7389 739fe 7392 74600 ©7461 7463 78160 
75178 7519 79992 =€6©67891e 87593 7632@ 7633 7634 7672@ 7678e #7666e +7722 «1177650 
7766e 7775 7776 7794e +7795¢ #+%+17796@ +«|®#&+(17803 7604 7900S 7822@ ©87623e 7828 7629 
7693 769Se 8€67896e 7898 79¢¢e¢ 8=©6©679°1e 79028 7903 79100@ 7913 7931e 79328 79330 
71940 7941 7942 719930 7994e 7995e 7996e 7997 seagqe 8=—68 53 8054 605s 6056 





16322 PAGE 2714 


MAINDFle11-DERPVeR MACY11 27(737) 18eFEP<76 

DFRPVE P11 CROSS RFFERENCE TABLE ©< USER SY“ROLS 
8e76e ReT7e 6e76 ansae 
1646 6174 a175 8176 
8230 8231 83732 8233 
83200 6327 6328 8329 
03980 8399 R4R4 84a5 
8499¢ $02 e504 asas 
6561 S640 577 #579¢e 
86020 6635e C636 86370 
8662¢ R666 6670 A671 
87540 87670 8772 a783 
ee21¢ 9823 8625 80330 
ea9se s9iie a912¢ 4913 
8996e 9a04e 90126 9A2n6 
91098 91136 9120 9121 
9195 9196 91976 9198¢ 
92616 9265 92766 9267 

SPCH 030010 2622 3503 78418 

SRO = 177572 1730 

SRi1 = 177574 1748 

SR2 = 177576 17S¢e 

SP3 = 172516 1768 

SSTI 026212 72188 

SST? 426224a 72218 7227 7346 

SST3 026240 7208e 72308 7337e 

SST4 026260 72090 72418 73360 

SSTS 026272 72100 72498 73390 

STACY = 091900 398 1363 1472 1510 
3463 3639 3955 4102 
6689 6866 7066 7364 

START 004678 1349 13$2 13578 

STKLMTs 177774 44a 

ST22 021662 $6698 §931 

ST228 A2034¢ Sse7ie9 

ST23 @2241% $921 59268 

ST24 022470 $9708 6337 

ST28 923462 6327 63348 

SwR 2 177570 460 47 1486 1338 
6en3 eee7 6a9e 9911 

Swo Ss AAGAA1 978 

Swou = OAN0G1 ave 97 

SWO1 = 090002 B68 96 

Swd2 3s OOANG4 ase 95 

S¥23 =s fAgR10 84e@ 98 

SwO4 = 909020 630 93 

SWOS 2s 900040 82e OD 

SWAG s 800100 8is 91 8913 

SW?7 ss 9990200 O00 90 8224 8399 

SW?8 s 0990400 798 89 

SW09 = 041000 768 68 

Swi SB 0A0002 968 

Swi? s 902000 778 

SW1i s 004000 768 

SWi2 s 010900 7S8 

$Wi3 = #20000 748 1486 1538 1559 

Swi4 s 64°000 738 

SwiS s 100000 720 


8119 
a177 
#234 
a3 4he 
9406 
8533 
9501 
8639 
8675 
a7h4Ge 
@a364 
6924 
90780 
91536 
97140 
9268 


1657 
4241 


1359 


#120 
A19Re 
2668 
23490 
8407 
6534 
6591 
8640 
8720¢ 
6785¢e 
8836 
89320 
90366 
9154 
9215 
9269 


17a9 
4411 


82272 


R131¢ 
219968 
8772e 
a35a 
R4e8 
65360 
as9o3 
8641e 
a771e 
67R6e 
ab370 
99400 
GA44e 
9155 
9249e 
927@a 


1749 
4860 


@397 


6132¢ 
A2ERe 
82980e 
8376¢ 
94180 
85558 
6595 

8643 

A732 

8811 
#839 

994606 
9e52¢e 
91560 
92500 
9275¢e 


1794 
$137 


84940 


8143 
R2A10 
a2a9 
@3770 
8428 
85560 
A5% 
8445 
8730 
8612 
8840 
69566 
99600 
9161¢ 
92516 


1915 
$483 


9144 
82028 
6299 
83760 
84350 
AS55708 
a$97 
0647 
@733 
68130 
0841 
89640 
9A68e 
91620 
92526 


2196 
5656 


6510 


8161° 
62220 
63060 
6379e 
0442 

6556e 
8598 

6651 

67470 
68140 
6643 

69720 
90740 
91636 
92530 


2550 
5957 


61620 
82230 
6316 
63890 
e451 
65590 
6599 

66530 
67480 
6815 
e680 

o98ge 
90798 
9169 

92540 


2802 
6349 


@163¢e 
8224 

83198 
a397e 
64570 
65600 
86010 
6655e 
47490 
6017 

66920 
e98ee 
91630 
9194 

9255 


6676 


MATINDEC S11 oDERPVeR MACY11 27(732) 18°FFB°76 16222 PAGF 215 SEQ 9242 

DFRPVA Pit CROSS REFFRENCE TABLE 2 USER SYMROLS 

Sw? zs AAAGRE 950 

Sw3 = A70010 940 

Sw4 s 990020 930 

Sws 3 070040 92e 

Sw6 s 000100 91¢e 

Sw? s 490200 Fe 

Swe = 090400 6980 

Sw9 s 491000 86e 

TRITVEs A00014 1308 

TOF 2 600040 1i1ie 

TESTAD 631174 82580 

TIMCNT 830550 1716 1758 9ae7 AA12 Ra738 Aas? 8092 

TIME1 030252 1437 79658 

TIME? 039264 1441 79678 

TKVEC = 000060 1378 87078 e708 

TMPO 094626 13428 2419 2456 76638 26648 2087 5665e $832 583S¢ 59064 $96Se 6116 611908 
6187 

TMP1 A04630 13438 66750 69666 

TYP4 04632 13448 

TMPS 004634 13458 24206 2447 26658 2678 5666¢ S92Re 59660 63340 

TN & 000035 16576 1658 17948 1795 19158 1916 21908 2191 25506 2551 28028 2803 30450 


3046 34638 3464 36398 3640 39550 3956 41928 4103 42410 4242 44116 4412 
45668 4561 $137e $138 54838 5464 $6560 5659 $9578 $956 63498 6350 65068 
6507 66690 6699 68668 6967 70668 7067 73648 7365 


TOTALA 004624 13408 15538 1555S 

TPVFC = 990064 1388 

TRAPVEs 9000346 1368 1368¢ 13698 1380¢ 26448 #26580 2676 

TPF = 949000 10208 2984 3236 339A 4407 4738 4908 $267 $567 6555 6565 6574 6777 
7191 7392 

TPKi = 004000 10988 

TRKIV = 940000 11018 

TRK2 = 910000 19998 

TRK20 = 190000 11028 

TRK4 =& 920000 11908 

TPTVECs a90014 1318 

TSTNM 094470 12978 16560 1707@ 17478 #17958 1916@ 2191e 25518 280030 39468 34648 36468 39560 


41030 4242 44120 4561 5138 S4h4e 56590 595Re 63500 6507¢ 66900 68674 7067 
736S¢ 8266 19620 14636 


TST) 906160 1448 1462 14766 1736 
TST10 010400 19148 
TST1! #11122 21098 
TST12 012060 25498 
TST13 912612 28018 
TST14 013304 30448 
TST15 014346 34628 
TST16 014664 363880 . 
TST1i7 015536 39548 
TST2 006 346 15068 
TST2¢ #16026 41016 
TST21 016276 42408 
TST22 916620 44108 
TST23 017060 45598 
TST24 920404 51368 
TST25 021306 $4828 
TST?76 021626 5657¢e 


TST27 622434 $930 595680 





MAINDECo11 -DERPV=B 


DERPVB PII 


TST3 
TST30 
TST31 
TST32 
TST33 
TST34 
TST35 
TST36 
TST4 
TSTS 
TST6 
TST? 
TUF = 
TYPOS = 
TYPE = 


TYPFRR 
TYPOC = 


TYPON = 
TYPOS «= 
UNIR = 
UNIT 
UNITS 
UNITSL 
UNLOAD 
UNS 
UPE 
Us! 
US2 
Us4 
UWR 
vVUF 
vu30 
vv 
WAITBT 
WAITeC 
WAITRE 
WAITT™ 
WAIT.P 
WAIT.T 
WAT = 


wer z 


906414 
a23500 
024936 
024642 
025260 
#25672 
426462 
#27312 
097502 
007752 
810952 
010142 
BeA1eA0 
194410 
104400 


935630 
164402 


104406 
104404 
AA9A20 
04602 
#94562 
004614 
042312 
040000 
A20000 
900001 
980002 
AAMARE 
080010 
090062 
910000 
000100 
030306 
030302 
030304 
430310 
030312 
030552 
194420 


092242 


040000 
000040 


1515 
6336 
65058 
eaane 
66658 
70658 
7344 
766588 
1561 
17048 
1726 
1764 
1112¢ 
1608 
1391 
1571 
7674 
e414 
6775 
0968 
9073 
8916 
1498 
6933 
9037 
9233e 
92328 
oe7e 
13219 
1320¢ 
13298 
12708 
10578 
9968 
9830 
ea6a 
9656 
11568 
11578 
11168 
10318 
79888 
79868 
79878 
719666 
1436 
1440 
1635 
3205 
46 
6593 
12398 
3775 
6180 
9978 
10468 


MACY11 27(732) 
CROSS PEFFPRENCE TARLE ©© USER SYMSOIS 


15348 
63468 


73638 
1634 


1732 
17868 


1623 
1395 
1575 
7685 
6420 
6778 
6976 
9n9s 
90728 
1614 
6941 
9045 


1456¢ 
15808 
1457¢ 


1837 
8ed1¢ 
7996¢ 
earde 
79898 
799086 
60756 
1987 
3360 
$053 
6748 
18679 
3912 
6309 


1@°FERo76 


16548 
17448 


7673 
1399 
1603 
7688 
6431 
8782 
6984 
9097 


1672 
8949 
9053 


14646 
1586 
1464 


1653 
enne 
79998 
enee 
79908 


9236 
2104 
3490 
5200 
6929 
2024 
4077 
6469 


16322 


7689 


7679 
14043 
1609 
7721 
8437 
8845 
6992 
9100 


1679 
6957 
9061 


15@2¢ 
1590 
1636 


1869 
Aa13 
80798 
e013 
8037 


2214 
3538 
$265 
7013 
2140 
4213 
6657 


PAGF 216 
7699 

7687 7723 
1407 1411 
1615 1621 
7724 8262 
8443 0447 
ae47 6678 
9000 9008 
9102 9117 
1686 8267 
8965 6973 
9969 9061 
162Re 1636¢ 
1628 7694 
2333 2630 
8082 8068 
Rees 10609 
8017 8079 
8047 19612 
2315 2436 
3730 3865 
5410 5550 
7099 7176 
2360 2506 
4383 4516 
6823 8322 


9114 
1415 
1667 
8268 
6453 
8886 
9016 
9186 


8273 
6961 
9110 


1665 


3556 
8093 
10612 


2463 
4026 
$728 
7287 
2740 
4779 
6924 


92348 
1450 
1673 
A274 
6459 
6920 
9024 
92300 


9419 
#989 
92318 


1671 


3748 
10609 


2578 
4162 
$760 
7396 
2893 
4938 
10641 


1486 
1674 
6275 
0466 
$928 
9032 
9273 


8436 
8997 


7672 


2669 
4269 
5841 
7473 
3005 
5076 


1492 
1688 
6279 
8600 
8936 
9040 


8452 
9905 


7693 


6280 


0097 


2694 
4332 
6050 
7524 
3137 
5330 


1540 
1683 
8263 
6648 
6944 
9048 


76960 


2672 
4471 
6124 
7396 
3266 
5440 


1563 
1687 
8290 
6724 
9952 
9056 


6470 
9021 


7679 


78696 


2960 
4623 
6262 
92368 
3410 
$603 


1567 
7666 
6294 
6729 
6960 
9064 


7911 


3116 
4716 
6420 


3592 
$697 


a 
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MAINDEC#11-DERPVeR MACY11 27(732) 1AeFFRe76 16:72 PAGE 217 SEQ 6244 
DERPVE P11 CROSS REFERENCE TABLE -- USER SYMROLS 

weu = AAgaei 11068 

WLE = 004700 10540 

WRCHDT 002326 12768 

WPCHEK 002324 127S¢@ 

WRFROM 002354 12898 1926 19590 2000 2052 2°56 2157 2228 2237 2245 2254 2274 2350 


2473 2480 2522 2704 2711 2757 2613 2837 2684 2915 3020 3056 3080 
3128 3155 3167 32186 3291 3300 3345 3429 3650 3659 3690 3765 3794 
3929 3966 3975 3988 4112 4124 4571 4560 4593 4637 4646 4656 4665 
4678: 4726 4805 4614 4821 4956 4963 4990 $104 $149 $157 $176 $215 
$227 $278 5353 5459 5493 5620 5677 5686 5698 $771 5776 $916 5961 
$990 $998 6007 6020 6061 6466 6078 6170 6206 6211 6323 6359 6483 
6564 6566 6700 6880 68% 7115 7125 7139 7233 7243 7317 7414 7424 
7438 7842 7350 7610 

WPIDAT 002330 12778 3174 3196 4131 4154 $234 5257 6985 6109 

WPIFOR 002332 1278¢ 1957 1979 2281 2304 2323 2644 2864 30867 3106 3697 3726 3738 
3995 4018 4600 4615 4685 4708 $177 $192 5705 $728 6027 6042 6717 
6903 6918 7146 7161 7445 1460 


WRL = 094000 10368 

WRU = 090400 1114e 

WSU = 000004 11060 

XE2 007216 1sse@ 1584¢@ 

SBDADR 401122 2268 590Se 61686 71906 79138 106206 19630 10632 19634 

SBDOPAT 071126 228¢8 1517 1849 186586 23290 2338¢ 26410 2655 35526 35610 37440 37530 38790 


38660 6276e 628958 64340 64430 8O17e 86290 eag97e 81130 82170 8393e 10609 10612 
19615 10617 10626 10628 10630 


SBELL 001210 2546 6729 6791 ae76 6898 

SCHARC 033750 8664 86730 66788 

SCMTAG 001100 2148 1358 1359 1366 1372 1373 

sCM1 = 070006 2408 2418 2428 2438 2448 2458 2468 

scM2 = A00014 2468 2418 2428 24368 2448 24568 2468 

SCM3 z= #90006 2368 240 

sCM4 2s A90006 2468 2478 2488 2498 2508 251¢ 2528 

SCNTLC 34357 8724 87918 

SsCRLF 001215 256¢@ 1621 1673 1680 1687 6274 6648 6791 6650 6686 e698 9073 9097 
9102 

SDBLK 033534 8566 8600 86068 

sD0O4GN 427660 7717 7726 77368 

SOTBL 033524 8569 86040 

SENDAD 027650 208 210 7729 7730 77328 

SENDCT #27600 77198 

SENDMG 027664 7685 7721 77378 

SENULL #27701 7666 7724 77408 

sEop 927544 1499 1579 19863 7692 77098 

SFOPCT 027572 77168 71720 

SERFLG #01103 2178 6484 6512 6514 8520 8541 88730 9698 

SERMAX 901115 2238 13740 6514 6536 6541 

SERRCP 034524 1366 1506 8e6Se 

SERPPC 001116 2248 866de ae6ie 8882 6898 9079 19609 10612 10615 10617 10619 10626 10623 
19626 10628 10630 19632 10634 19636 10638 19641 

SERPRTE 001220 2748 9067 

SEPRPTY 634670 sees 8911s 

SERTTL 001112 2218 7678 76800 86790 6898 

SESCAP 401206 2338 1373¢ 8535 88693 8895 6698 

SFILLC 001150 2368 6651 6685 

SFILLS 0601147 2358 6665 

SGDADR 401120 2258 


MAINDFC-11-DERPV=-B MACY11 27(€732) 18eFFR°76 16:22 PAGE 218 SEQ 0245 

OFRPVB.P11 CROSS REFERENCE TABLE ©- USER SYMBOLS 

SGDPAT 001124 2278 15166 1645¢ 1854 23258 23340 26420 26568 3548e 35578 37400 37490 3675¢ 
36846 62720 6281¢ 64308 6439 62160 83928 10615 19626 10626 14630 

SGET42 0627622 77258 

sHD = 400000 11 

SHIOCT 34522 8636e 88498 

SICnT A01104 2188 6S527e 6528 85308 8540 

SILLUP 636434 9247 92768 

SITEYA 001114 2228 8662¢ 8698 9076 

sLF 801216 2578 8762 8791 8850 6898 

SLPADR 071106 2198 1375¢ 1656¢ 82898 8300 65160 85330 6536 8540 

SLPERP 9001110 2208 1376 6$32¢ 71227 14940 8272 82998 6518 A5340 8540 8692 

SMXCNT 633316 6531 85408 

SNULL 001146 2348 8653 6685 

SNWTST= 900001 14668 1468 15048 1506 15248 1526 16448 1646 16968 1698 1736¢ 1746 17778 


1779 1902¢ 1904 21728 2174 253580 2537 279908 2792 36300 3032 3452¢ 3454 

36068 3610 39458 3947 40926 4094 42268 4230 44eie 4493 45346 4536 $1248 
$126 $4728 5474 563868 5646 59330 $935 63408 6342 64958 6497 66798 6681 

6645e 6847 70468 7048 73488 7350 76568 7658 


SOCNT 036240 91600 9189¢ 92028 

SOMODE 636242 9155e 9159¢ 9164 9167¢ 91780 92048 
SOVFR 033302 8495 6511 6519 8829 85378 

sPASS 001190 2158 76640 7686 77138 77140 7722 7737 6525 6S$41 
SPOWER 036442 9274 92818 

SPWPAD 0636430 92768 

SPWRON 636306 1370 92478 9271 

SPWRYG 836424 92748 

SPWRUP 0636354 9256 92618 

SOUES 001214 2558 6775 6791 6847 8850 8898 
SROCHP 034154 67478 9235 

SRDDFCs seeeee 9230 

SRDLIN 034240 67678 9236 

SRDOCT 34364 eeiie 9237 

SRDSZ = 900011 87606 

SPEGAD 601152 2368 

SREGA 01154 2408 

SPEG1 021156 2418 

GREG? 001160 242¢ 

SPREG3 01162 2438 

SREGS4 001164 2448 

SREGS 001166 2458 

SRESET 0627646 7728 77310 

SSAVREs eeesee U 9238 

SSAVP6 036440 9255e 9261 9262¢ 92638 92808 

SSCOPE 033052 1364 84938 

SSETUPs 900017 1358¢e 1364 1366 1368 1370 1372 1373 1375 7711 
8SSi s 990000 13778 

SSTUP s 177777 13588 

SSVLAD 033254 6503 65328 

SSwr = 167700 ie 11 26 27 28 29 30 31 32 252 253 254 1372 


1373 1375 1376 1471 1509 1535 1655 1705 1745 17867 1915 2190 2550 
28602 3045 3463 3639 3955 4192 4241 4411 4560 $137 5483 $656 $957 
6349 6506 6689 6866 71066 1364 7666 7706 7712 7725 7737 6465 0486 
6487 8488 6469 8494 856 a5a6 e509 6512 6513 6514 6521 6522 6$23 
6534 6537 6540 8657 6658 6659 6860 6661 8676 8863 eee7 0890 8a96 
SSWRMKs 999000 32 33 6489 8490 8510 
STIMES 0601204 2528 1372@ 14718 15098 1535e 165Se® 76668 77128 85218 #8528 e531e 98540 





MAINDEC#11-DERPVeR MACY11 27(732) 1@eFEBe76 16322 PAGE 219 SEQ 6246 
DERPVB P11 CROSS RFFERENCE TABLE ©* USER SYMBOLS 

sTKA 901140 2318 8689 8709 8720 

STKCNT 0833756 86898 870466 8727 67326 8751 87530 

STKINT 033776 1365 1537 1791 87048 8725 

STKOEN® 633775 86938 8735 6756 

STKQIN 633760 86908 #70Se 8706 87336 87340 8735 87378 

STKQ0U 633762 86918 8706e 8754 87558 8756 67580 

STKQSR 33764 669286 6705 9737 6758 

sTKS 071136 2308 1361 8689 8710 

STKSRV 034046 8707 87208 

STMPO @01170 2468 15940 1595¢ 

STMP1 001172 2478 14846 1716 1719¢ 1756¢ 1759@ 65158 6518 65200 6524 6528 6529¢ 7079 


7204@ 72180 73418 4174028 74868 74950 7624 7626@ 7628 7630¢@ 7631 7632 7635 
7637 7639¢e 10619 


STMP2 001174 2488 
STMP3 001176 2498 
STMP4 461200 2508 
STMPS 001202 2518 
STN 2 000037 ie 11 1447 1461 1466 14718 1504 15098 1514 1524 15358 1561 1633 


1644 165S5¢ 1657 1696 17¢S8 1796 1725 1731 1738 1745¢@ 1746 1763 1777 
178678 1794 1902 19158 2172 21968 2535 255006 2790 28028 3630 30458 3452 
34638 3608 36398 3945 39558 4092 41928 42286 42418 44a 44iie 4534 45600 
$124 $137e@ $472 $4630 5638 $6568 5930 5933 $957¢@ 6336 6340 63498 6495 
65068 6679 66898 6845 60668 1046 70668 7343 7346 73648 7656 716668 


sTPB 001144 2330 86708 8685 

STPFLG 001151 2378 6631 6685 

sTPS 001142 2328 0668 8685 

STRAP 036244 1368 921408 

STRP s 070022 92216 92310 92320 92336 923468 92350 92360 92378 92368 92398 
STRPAD 0836264 1436@ 14406 9218 92298 

STSTN™ 0011062 2168 768630 7711¢ 8484 6s10 65320 6537 6541 6675 Ae98 
STTYIN 034346 6768 6769 6786 e790¢0 

STYPBNs eeesee U 9235 

STYPDS 033320 05540 9234 

STYPE 033544 66316 9221 9230 

STYPEC 033704 8650 8657 8663 06688 R669 

STYPEX 0833752 0674 8676 66798 

STYPOC 036042 91568 9231 

STYPON 636056 9157 9160¢ 9233 

STYPOS 8636016 91530 9232 

@XTSTR 433960 04976 

SSTRP = 009002 922R¢@ 9231 9232 9233 9234 9235 9236 9237 9238 9239 
SOFILL 036241 91548 9156¢ 9168 92038 

° s 055304 144¢ 148 1508 15368 1550 2018 2098 2128 258 12898 12908 13068 13200 


1362 1375 1376 1391 1395 1399 14028 1403 1407 1411 1415 1456 1468 
146918 1492 1546 1563 15666 1567 15708 1571 1575 157608 1603 16068 16069 
1615 1667 16708 1674 16861 7668 7674 76778 7737 7741 0262 8266 6275 
82780 8279 6263 #2668 8290 62938 8294 6414 8420 84236 6431 04340@ 8437 
644080 6443 6447 84508 8453 6459 8466 8540 8541 a6e6e 8§=68685 9699 86926 
8693 86940 #879008 8791 8792 8850 6698 8920 89238 8928 69318 6936 6944 
8952 8960 8968 6976 6964 8992 69958 9000 99938 9008 oe11e 9016 90190 
9024 90278 9032 903580 9040 9048 9056 90590 9064 90678 91240 9258 9279 
106088 106746 





MAINDEC©11-DERPV<-B MACY11 27(732) 18°FEB°76 16327 PAGE 221 SEQ 6247 
DERPVB P11 CROSS REFERENCE TABLE <-- MACRO NAYES 
ALLREG 216 9918 9927 8935 #943 9951 8959 6967 8975 B9R3 #991 8999 9007 9015 9023 
9031 9039 9047 9055 9063 
CHANGR 218 1063 2601 2608 2117 2124 2967 2976 2985 2995 3219 3228 3240 3244 3251 


3373 3380 3392 3399 3568 3575 3582 4048 4057 4064 4164 4195 4202 4354 4365 
4372 4479 4469 4498 4505 4730 4739 4751 4762 4900 49An9g 4926 $279 $266 $295 
5307 $311 $559 5566 $580 5587 5848 sess $865 $674 $878 6131 6138 6145 6154 
6158 6601 6608 6617 6622 6633 6769 6778 6790 6797 6601 

CHECKED 216 1970 2086 2198 2293 2425 2589 2618 2655 2943 3099 3165 3343 3472 3518 
3709 3844 4007 4143 4250 4314 4452 4604 4697 4667 $034 5161 5246 $391 5531 
5709 $737 $614 60631 6698 6241 6394 6587 6714 6907 6992 7083 7150 7268 71449 


7875 
CHECKV 218 1801 
CLEARA 216 1936 2055 2236 2253 2260 2479 2710 2823 2914 3966 3154 3299 3304 3310 


3658 3676 3811 3974 4111 4281 4420 4579 4645 4664 4613 4620 4627 49869 4996 
$156 $214 $352 $359 $492 5499 5685 5770 5775 $782 $9869 6006 6060 6065 6265 
6210 6358 6364 7123 7221 7241 7422 7832 7348 


CMPBLK 218 «2154 «62519 §=—s 27540 3017) 34260 3798 «= 3926 4953) S191 54560 5617) 5915 = 6320 648 
7314 «©7608 
CMREGI 218 1875 2020 2136 2386 2502 2736 «=— 2889 )=— (300103133) | 3262 3486 )=— 888 = 3774988 
4073, 4209 «44379 4512s «4477S 4934 = $072, 53260 54360-5599 = 5893) 6176 6305 = 46S 6653 
6819 
COMMEN 11 1400 | 
DATACO 218 #1963 2062 2267 2389 2591 2030 2020 3073 «63161 3316 3603 3018 «3981 89 4118 | 
4208 «= 4427 45860=— 4671 4840 = 5009) = 51630 3271 $366 = S806 ©=—s 36910 S788 = 6013 = 6072 6216 | 
6370 «= 6888 = 6974 = 74310-72492 74380-7886 ; 
DISRFG 219 «©5318 «= $427) $594 | 
bum 218 ©1803 
eNDcoM 16 1408 
ERROR 408 «61485 «= 152@)=s«1723)ss«1734 += 1768) 18510 186M = 1884) = 20292145) 264 = 2331 2348 = 2365 


2510 2529 2645 2659 2745 2764 2697 3009 3026 3141 3276 3415 3435 3554 3563 
3597 3746 3755 3760 3800 3661 3896 3937 3936 4082 4218 4308 4521 4784 4943 
4963 5081 Siit 5335 5445 5466 $608 $627 $996 $925 6189 6276 6267 6314 6330 
6436 6445 6474 6490 6662 6828 6943 7026 7036 7194 7305 7325 7617 7967 7914 
8920 8022 6032 6041 6esa 8100 8103 6114 

ESCAPE 1408 


FIHEAD 218 1924 2050 2226 2243 2471 2702 2611 3054 32869 3648 3668 3964 4569 4635 
4654 4603 4981 $147 5675 5979 $996 6677 7112 7230 7411 7839 

FILLEL 218 

FLSVRE 218 1995 1998 2015 2111 2114 2131 2345 2348 2351 2486 2489 2492 2495 2717 


2720 2723 2726 2729 2679 2682 26865 2992 3123 3126 3129 3213 3216 3237 3367 
3370 3389 3768 3763 3766 38695 3898 3901 4724 4727 4748 4766 4769 4894 4097 
4920 4923 $061 5064 $067 $273 $276 5304 54186 $421 5424 $577 $062 sees seee 
6165 6168 6171 6292 6296 6299 6450 6453 6456 6459. - 6643 6647 6767 

Goo 218 1823 1978 2094 2206 2303 2427 25708 2633 2863 2951 3107 3195 3353 340@ 
3528 3719 3854 4017 4153 4261 4323 4462 4614 4707 4877 $044 $191 $256 $401 
5541 $719 $751 5624 6041 6198 6251 6405 6917 7002 7091 7160 7278 73086 7459 
7515 7889 

LOAD 218 

MSG 14669 1468 150498 1506 15238 1526 16438 1646 16958 16986 17378 1740 17768 1779 19016 
1904 21718 2474 25348 2537 27698 2792 30308 3032 34518 3454 36068 3610 39448 3947 
40918 4094 42278 4230 44008 4403 45330 4536 512738 $126 $4728 5474 563768 5646 $9330 
5935 63398 6342 64948 6497 66768 6681 68448 6847 70458 7048 73478 73588 76560 763868 

MULT 1408 

NEWTST 1408 1466 1594 1524 1644 1696 1738 1777 1902 2172 2535 2790 3830 3452 3608 
3945 4092 4228 4401 4534 $124 $472 $638 $933 6340 6495 6679 6045 TE46 7348 
7656 





$997 
92765 
$992 
9249 


1659 
3641 
5345 
77192 
8866 
176 
2621 
1470 
4190) 
7710 
2567 
9231 
1358 
1408 


1849 
4136 


290 
1653 
3030 
4558 
6845 
8769 
1657 
5493 
1561 


1658 
5494 


7722 


1678 
1390 
1603 
6413 
8968 
1816 
3712 
$712 
7578 
1834 
3489 
$409 


MAINDEC S11 °¢DERPVeR 
DERPVA, P11 
OFFST 218 
POP 1408 
Aras 
PI'SH 1408 
8813 
PFORGS 218 
RHCLEA 718 
3496 
5206 
7145 
SAVE 218 
SAVTST 218 
SCH 218 
SCOPF 4ie 
3954 
7665 
SFE¥CO 218 
SETTPA 92218 
SETNP 1408 
SKIP 218 
SLASH 1408 
SPACE 1408 
SPEGIS 218 
49a 
6724 
STAPS 1408 
1644 
2840 
4534 
6687 
8739 
STARTT 218 
$137 
TJUMP 218 
TRMTRP 92218 
TSCLR2 2718 
TSCLRS 218 
TTSTNO 216 
5138 
TYPAIN 1408 
TYPDEC 1408 
TYeNuM 1408 
TyYPOCcCS 1468 
TYPOCT 1408 
TYPTXT 1408 
1575 
8294 
8960 
VFCSFT 218 
3521 
5534 
7508 
WT 218 
3359 
5264 
7175 


7286 


6198 


6185 


1796 
3805 
54n5 
7366 


1746 
3502 
1598 
4240 


4258 
9232 


1447 


1963 
4307 


202 
1696 
3943 
$124 
6864 
8796 
1794 
5658 
$930 


1795 
5659 


1685 
1395 
1609 
8420 
6976 
1972 
3647 
5744 


1986 
3537 
5549 
7395 


WACY11 27(732) 
CROSS PEFFPENCE TABLE ©2* MACRO NAMES 


7775 


7764 


1917 
3957 
5660 
7404 


1534 
4410 


5740 
9233 


1461 
2080 
4445 

256 


1703 
3452 


7046 
8aSe 
1915 
5957 
6336 


1916 
$958 


1399 
1615 
8431 
8984 
2088 
4016 
$617 


2103 
3729 
$727 
7472 


1A oF FR o76 


7aAy 


7793 


2042 
4104 
5669 
7501 


1654 
4559 


9234 
1514 


2286 
4690 


964 
1738 
3461 
$472 
7064 
9127 
2190 
6349 


2191 
63590 


1403 
1667 
8437 
8992 
2290 
4146 
6034 


2213 
3664 
5759 
7823 


16:22 


7A2e 


7821 


7192 
4243 
5959 


1704 
5136 


9235 
1633 


2406 
4860 

970 
1743 
3608 
$481 
7348 
9205 
2550 
6506 


2551 
6507 


1407 
1674 
8443 
9000 
2296 
4252 
6101 


2314 
4025 
5640 
7897 


PAGE 222 
7194@ 8A52 
7930 7993 
2220 2383 
4275 4413 
597a 6198 
1744 1786 
$4A2 5657 
9236 9237 
1725 1731 
2610 2849 
5a2e 5239 
1904 1006 
1777 1785 
3637 3945 
$639 $656 
7362 7655 
9242 
2802 3045 
6689 6866 
2873 3946 
6690 6867 
1411 1415 
1681 7668 
8447 8453 
9008 9016 
2449 2561 
4317 4455 
6244 6397 
2435 2462 
4161 4268 
6049 6123 


aA7s 


2552 
4562 
6351 


1914 
5956 


92368 
1763 


2937 
$384 


1179 
19¢2 
3953 
$933 
7656 


3463 
7066 


3464 
71067 


1456 
7674 
6459 
9024 
2661 
4607 
6910 


2577 
4331 
6261 


0143 


2586 
4629 
650A 


2189 
6346 


7343 


3093 
5524 


1466 
1913 
4092 
5955 
7664 


3639 
71364 


3640 
7365 


1468 
8262 
6465 
9032 
2857 
4700 
6995 


2668 
4470 
6419 


6174 


0160 


2974 
4797 
6534 


2549 
6545 


3178 
$607 


1469 
2172 
4190 
6340 
7700 


3955 


3956 


1492 
8268 
8920 
9040 
2945 
4670 
7085 


2693 
4622 
6592 


8229 
8197 


2908 
4633 
6691 


2801 
6688 


3336 
6091 


1804 
2188 
4226 
6347 
6478 


4102 


4103 


1540 
8275 
6926 
9048 
3101 
$037 
7153 


2871 
4715 
6747 


6327 
6317 


3047 
4970 
6068 


3044 
6665 


3516 
6234 


1507 
2535 
4239 
6495 
6541 


4241 


4242 


1562 
8279 
6936 
9056 
31686 
5164 
7271 


2989 
4605 
6928 


8403 
8375 


3261 
5002 
6968 


3462 
7065 


3762 
6387 


1524 
2548 
4401 
6504 
8609 


1567 
0283 
0944 
9064 
3345 
$249 
7382 


3115 
$032 
7012 


SEQ 0248 


3465 
$139 
70686 


3638 
7363 


3837 
6579 


1533 
2796 
4409 
6679 
068s 


4560 


1573 
8290 
6952 


3474 
$394 
7452 


3204 
$199 
7098 








MATNDECo11-DERPVeR MACY11 27(732) 18eFER©76 16372 PAGF 223 SEQ 6249 
DERPVA.P11 CROSS REFERENCE TABLE ©© MACRO NAMES 


WTT 218 18640 1992 2109 2219 2320 2441 2468 2583 2674 2699 2077 2965 3121 3216 
3365 3495 3543 3735 3670 4031 4167 4274 4337 4476 4628 4771 4691 5056 $205 
5270 5415 5555 $733 $765 5846 6055 6129 6267 6425 6598 6753 6934 7016 7104 
71861 7292 7401 7478 7529 7603 

SsCVRE 2028 240 241 242 243 244 245 

ssc“te 2028 246 247 246 249 250 251 

SsESCA 1408 

SsNEwT 1408 1466 1504 1524 1644 1696 1738 1777 1902 2172 2535 2796 3630 3482 3608 
3945 4092 4228 4401 4534 $124 $472 5638 $933 6340 6495 6679 6645 7046 7346 
7656 

SsSET 92218 9231 9232 9233 9234 9235 9236 9237 9238 

ssSKkIP 1408 


eEQUAT 1° BS 
»HEADE 18 

o*T11 18 164 
»SETUP ie 64:37 
.SWRHI ae 21 
»SWRLO ie 330 
escaTc {8 141 
oSCMTA 18 202 
»seoP 1¢ 86.7700 
eSERRO ie ©6880 
eSERPT 18 

2SPOWE 1@ 9262 
eSRNOC 1¢ ©=—8 796 
»SREAD 19 8685 
»$SCOP ie 6.6 4478 
eSTRAP 1@ ©9205 
oSTYPD ie 06= 6S 41 
oSTYPE 18 §©6.86.09 


oSTYPO ie 9127 


MAINDEC#11-DERPVeR MACY11 27(732) 18eFEP*76 16222 PAGE 225 SEQ #250 

DERPVB,P11 CROSS REFERENCE TABLE ©© PERMANENT SY“BOLS 

AOD 6520 6529 71200 7201 7202 7337 7338 7339 1630 7639 8045 AA46 6171 8213 e266 
e574 8641 8034 9087 9156 9166 

ASL $827 88629 6631 9084 9085 9An6 

ASLA 8579 

Bcc 1597 8580 

BEO 1448 1462 1515 1557 1560 1600 16a? 1634 1732 1848 1857 2328 2337 2640 2654 
3551 3560 3743 3752 3878 3867 6275 6204 6433 6442 6941 6952 7024 7034 7192 
7303 7638 7682 7692 7696 1726 7905 7912 8019 9031 8a99 #112 137 6215 6225 
8390 8400 8509 6511 6513 as17 8526 0644 6752 68622 6a74 6e77 9691 88694 9094 
9099 9145 9116 9183 

BGE @579 6676 

BGT 7717 esse 8624 9190 

BHI 6515 

BHIS 6544 6840 8049 

BIC 1455 $319 $320 5428 $429 $592 5593 6739 6757 6761 6768 6614 6615 7714 7902 
71910 8140 8223 6398 8427 a721 8833 8912 9180 

BIS 1825 1844 1986 2096 2208 2305 2324 2418 2429 2572 2629 2635 2664 2665 2953 
2996 3109 3197 3241 3353 3400 3482 3530 3547 3583 3721 3739 3856 3874 4019 
4065 4155 4203 4263 4325 4373 4464 4596 4616 4709 4763 4679 4927 $046 $193 
5258 5308 $321 5403 $430 $543 $s5a68 $594 $721 $753 $826 $675 6043 6116 6155 
6253 6271 6407 6429 65908 6618 6630 6738 6742 6756 6760 6764 6798 68616 6919 
7004 7093 7162 7280 7390 7461 7317 7591 7633 7868 7696 6136 0349 6428 6582 
6583 91865 9186 

BISA 9076 

BIT 1486 1538 1559 6524 6940 7023 7033 7189 7191 7300 1302 8008 0013 6018 8030 
8AR8 8093 90986 611i 85086 8516 6523 6676 6en3 6690 

BITA 6664 

BLOS 7629 8770 

BLT 8571 6567 8656 8626 9191 

BMI 8495 6578 

BNE 1362 1367 1480 1487 1539 1552 1589 1627 1720 1760 5929 6335 6519 6523 6525 
6554 6562 6711 6961 7190 7205 7301 7342 7487 7625 7728 7730 7774 78602 7939 
8009 6e11 6014 8716 6089 na91 6094 8096 6142 8173 8227 8326 8402 8430 6324 
6576 6638 8646 8652 8665 6672 8723 8728 8736 6757 6774 6780 0664 6914 9077 
9089 9108 9181 9264 

BPL 8562 8592 8632 8669 6086 9179 

BR 1349 1352 1388 1392 1396 1400 1404 1408 1412 1416 1439 1451 1481 1489 1493 
1541 1564 1568 1572 1576 1604 1610 1616 1619 1666 1675 1682 1726 1764 2648 
6521 6526 6552 6560 6571 6955 7344 7627 7669 7675 7697 7897 8021 8026 0035 
8043 6102 6107 6117 8139 8263 8269 6276 6280 6264 6291 8295 6415 6421 8432 
6438 6444 8448 6454 8460 6467 6497 8503 AS06 6519 6522 6573 8590 6634 6649 
8658 8667 8674 6731 6776 8635 8A4B 6915 6921 6929 6937 8945 8953 0961 6969 
8977 6985 8993 90A1 9069 9017 9025 9033 9041 9049 9087 9065 90862 9091 oii 
9118 9157 9172 9193 9258 9279 : 

CLR 1348 1351 1353 1354 1360 1372 1373 1518 1546 1880 1582 1591 1592 1664 6515 
6540 6541 6547 6549 6550 6551 6569 6572 6573 6575 6576 6576 6706 6707 6719 
6721 7075 7076 7077 7208 7209 7210 7376 7379 7495 7499 7800 7641 7642 7680 
7683 7711 7712 7680 7965 7990 7991 #260 6521 6535 8565 6568 6704 0749 6756 
8819 8820 9071 9075 9170 9262 

CLPA 1555 6956 6958 6520 4594 8673 6781 8644 

cme 1361 1483 1899 1601 1729 1730 1767 1846 18655 2326 2335 2639 2653 3549 3558 
3741 3750 3876 368s 6273 6282 6431 6440 6518 654. 65353 6561 7628 7637 7695 
7727 71729 7903 7911 6037 9047 8083 6214 8221 8224 8389 8396 6399 0504 6520 
8586 8722 8727 6735 8756 8769 8913 9088 9090 

CvPB 6951 8510 6514 8643 8645 8651 8671 8675 6773 8779 8e23 0625 

DEC 1479 1551 1568 1626 1630 1719 1759 $928 6334 6522 67108 69608 7204 7341 7486 


MAINDFC1 1 °DERPV<B 
DFRPVB.°11 


DECB 
evr 
HALT 
Inc 
Tncs 
10T 
uve 


JSR 


MOV 


MACY31 27(732) 18°FE8=76 16:22 PAGE 
CROSS REFERENCE TABLE ©- PERMANFNT SYMBOLS 

7691 7715 7773 7601 7938 8A10 8A15 
8753 9083 
8655 9178 9199 

4a 

148 8463 8472 8633 ese9 9257 9278 
1550 1624 1625 6950 7483 7484 7485 
6755 68679 9184 9192 9263 
6957 6959 8532 8677 8873 

41 

152 154 156 1389 1432 1499 1558 
1346 7636 7643 7689 7699 71736 6726 
1385 1537 1660 1710 1750 1791 1797 
1963 1970 1995 19986 2002 2009 2015 
2114 2118 2125 2131 2137 2156 2193 
2286 2293 2345 2346 2351 2357 2385 
2495 2543 2521 2553 2589 2568 2587 
2723 2726 2729 2737 2756 2805 2812 
2910 2914 2921 2937 2943 2968 2977 
3493 3099 3123 3126 3129 3134 3154 
3245 3252 3263 3283 3290 3299 3304 
3389 3393 3407 3428 3466 3472 3497 
3656 3669 3676 3664 3702 3709 3760 
3844 3695 36986 3901 3909 3926 3958 
4105 4111 4119 4136 4143 4185 4196 
4314 4355 4366 4380 4414 4420 4426 
4579 4567 4604 - 4630 4636 4645 4655 
4748 4752 4766 4769 4776 4799 4804 
4897 4901 4910 4920 4923 4935 4955 
5661 5064 5067 $073 $163 $140 $148 
$273 5276 $280 $289 $296 5304 $312 
$421 5424 $437 $458 5466 $492 $499 
$619 $661 $671 5676 5665 $692 $709 
5849 5856 $662 $866 5879 560s sene 
6014 6031 6060 6065 6073 6091 6096 
6200 6205 6210 6217 6234 6241 6292 
6387 6394 6450 6453 6456 6459 6466 
6635 6644 6648 6654 6692 6714 6724 
6679 6890 6907 6942 6969 6975 6992 
7150 71867 7213 7222 7232 7242 7251 
7449 7503 7832 7841 71849 7558 7575 
8725 660s 
1347 1350 1358 1359 1363 1364 1365 
1379 1380 1364 1362 1383 1419 1436 
1472 1473 1475 1476 1477 1476 1482 
1517 1519 1535 1544 1545 1547 1548 
1598 1607 1613 1620 1622 1628 1629 
1685 1690 1691 1707 1769 17193 1712 
1753 1756 1787 1758 1792 1794 1795 
1849 16590 1833 1654 1658 1859 1915 
7191 2200 2207 2210 2296 2304 2307 
2338 2339 2417 2419 2420 2424 2428 
2571 2574 2620 2627 2630 2634 2637 
2663 2665 2676 2677 2678 2681 2687 
3045 3046 3101 3198 3111 3168 3196 
3484 3487 3466 3521 3529 3532 3534 
3562 3639 3640 3712 3720 3723 3726 


226 


7626 


8095 


7604 


8141 


7713 


8172 


63A7 


8226 


8527 


8325 


6572 


8401 


8732 


8734 





MAINDEC?11°DERPV=B 
DEPPVS P11 


3754 
3956 
4178 
4352 
4711 
$257 
$665 
$904 
6119 
6271 
6438 
6559 
6790 
6867 
71006 
7227 
7498 
7678 
7776 
78627 
7893 
7941 
RAAZ 
8082 
6161 
8200 
8232 
A324 
#379 
6407 
6530 
6589 
8708 
8814 
6924 
9044 
9121 
9247 
9269 
1374 
6754 
6563 
1433 
153€ 
8494 


71969 
1685 
3436 
5336 
7618 
8409 
7826 
9221 
1386 
8666 


macvil 27(732) 


CROSS REFERENCE TABLE ©- PERMANENT SYMBOLS 


3847 
4016 
4180 
4363 
4772 
5260 
5666 
$905 
6166 
62865 
6439 
6563 
6701 
6873 
71009 
7271 
75086 
7686 
7794 
7828 
7895 
7942 
8004 
6064 
6162 
8201 
6233 
6327 
8320 
6408 
6531 
6595 
6710 
6615 
6932 
9052 
91353 
9248 
9270 
1553 
8772 
9165 
6669 
1790 
6828 


8057 
2930 
3599 
5446 
7777 
6679 
78694 
9231 
1434 
8709 


3855 
4018 
4182 


4411 


4870 
5318 
$712 
$907 
6167 
62866 
6443 
6564 
6783 
6874 
7010 
7279 
7516 
7690 
7798 
7829 
7698 
7966 
6007 
9067 
#163 
8202 
8234 
6328 
6381 
8418 
6533 
8596 
6737 
9e17 
8940 
9060 
9161 
9249 
9271 
1666 
0777 


7733 
7731 
8830 


#121 
2146 
3761 
$467 
7806 
8680 
78699 
9232 
1446 
8730 


3958 
4021 
4193 
4412 
4678 
5394 
5720 
$957 
6188 
6349 
6444 
6565 
6705 
6875 
7022 
7282 
7519 
7693 
7796 
7641 
7900 
7967 
8012 
8092 
8164 
8203 
6261 
8329 
6382 
6425 
0534 
6597 
6747 
6618 
a946 
9068 
9162 
9250 
9272 
6210 
6621 


71734 
6632 


8301 
2165 
3601 
5609 
7630 
8711 
7999 
9233 
1632 
6751 


1®-FER©76 168227 PAGE 227 
3861 3°62 3873 3875 
4040 4042 444 4046 
4241 4242 4252 4262 
4455 4463 4466 4488 
4661 4930 $037 $045 
5492 S4a5 $427 5483 
$723 5744 $752 $755 
$958 §965 5966 6034 
6190 6244 6252 6255 
6350 6397 646 6409 
656 6507 6516 6517 
6566 6567 6568 657@ 
6708 4709 6712 6717 
6910 6916 6921 6924 
7032 71066 7067 7079 
7364 7365 7377 7382 
7578 7890 7593 7631 
7694 7698 7718 7722 
7797 7798 7799 7890 
7642 7043 7859 7860 
7901 7906 7913 7931 
79686 7992 7993 7994 
6017 8029 8053 8054 
6097 #110 6113 6119 
8165 6166 6167 6168 
6204 8205 R206 8207 
8266 #272 8269 8299 
8344 8345 6346 6347 
6383 6384 83865 8386 
0426 6435 6442 0451 
8537 8538 8555 8556 
6598 6599 8601 8602 
8748 8758 8767 6768 
#637 8838 6639 88460 
8956 6964 6972 8988 
9074 9079 9092 9093 
9163 9169 9176 9194 
9251 9252 9253 9254 
9275 
6536 6564 8567 6561 
aae2 9154 9155 9158 
7735 
9171 9173 9174 9175 
8539 86063 9642 6738 
2366 2511 2530 2746 
3918 3937 4083 4219 
5628 5908 5926 6191 
7645 7861 7870 78681 
9122 9219 
8036 8060 6135 6394 
9234 9235 9236 9237 
1688 1689 71624 7681 
8636 8843 6687 6893 


3864 
4146 
4327 
4615 
S184 
$545 
$#32 
6109 
6272 
6428 
6$55 
4591 
6811 
6953 
7153 
7452 
7640 
7767 
7622 
7675 
7935 
7998 
6077 
8133 
6176 
6218 
8320 
8353 
8397 
8S5n0 
8566 
8653 
8786 
een 
9012 
9106 
9198 
9265 


8662 
9167 


8697 
3027 
4944 
6491 
6178 


6575 


yaAB 
4154 
4346 
4618 
$192 
$591 
$833 
6112 
6276 
6436 
6556 
6689 
6812 
6954 
7161 
7460 
7666 
7768 
7623 
7676 
7936 
8000 
6078 
6134 
6177 
8222 
6321 
6376 
6404 
6502 
6561 
6705 
6611 
6692 
9020 
9109 
9214 
9266 


6676 
9168 


9199 
3142 
4964 
6663 
6235 


36869 
4157 
4348 
4700 
$195 
5656 
$835 
6116 
6277 
6434 
6557 
6690 
6613 
6995 
7164 
7463 
7667 
7772 
7624 
7678 
7937 
8601 
8079 
0143 
6196 
8230 
6322 
6377 
6405 
6ses 
6566 
8706 
6612 
0695 
9026 
9113 
9215 
9267 


6720 
9167 


9277 
3271 
$062 
6829 
8330 


3955 
4176 
435¢ 
4706 
$249 
5659 
$903 
6117 
6286 
6435 
6$58 
6699 
6866 
7603 
7218 
7494 
7672 
7778 
7625 
7679 
7940 
0002 
8081 
0144 
6199 
6231 
6323 
6378 
0406 
6516 
6s69 
07067 
6613 
eo11 
9036 
9126 
9218 
9268 


8733 
9217 


MAINDEC?11°DERPVeR MACY11 27(732) 18°FEB°76 16:22 PAGE 228 SEQ 6253 
DFRPVB.P11 CROSS REFERENCE TABLE ©- PERMANENT SY“BOLS 


TSTS 1513 1356 6512 e577 6591 A631 8668 9107 

eASCIT 2558 256 9406 9424 9440 9457 9491 9$09 9$27 9557 9567 9§914 9600 9628 9636 
9656 9665 9GBRD 9697 9714 9722 9738 9751 9770 9783 9890 aeag 98621 9624 9639 
9851 98658 9872 9683 98Rn9 99A5 9919 993¢ 9951 9961 9977 99867 10006 1¢018 10045 
19058 10075 109085 10091 14106 19119 1013? 10142 10147 10166 10478 10188 109229 10238 19260 
19269 10272 10266 19295 10301 10316 10322 10326 10331 14342 19348 14354 10384 10366 10400 
10407 19421 10438 10452 10463 10477 19496 10516 19526 1@549 19554 10564 10572 

eASCIZ 254 257 1394 1398 1402 1476 1414 1414 1418 1453 1491 1495 1343 1566 1570 
1574 1578 1606 1612 16186 167@ 1677 1684 7671 7677 7737 8265 6271 6276 6282 
8286 8293 8297 6417 8423 R434 8440 0446 845A 9456 8462 Ra69 6791 6923 9931 
8939 6947 e955 8963 8971 6979 3987 aggs 9003 9011 9019 9027 9035 9043 9051 
9059 9067 9123 9201 9293 9297 9307 9316 9328 9335 9344 9353 9360 9372 9364 
9398 9414 9430 9447 9463 9475 9483 9497 9515 9535 9547 9574 9583 9607 9616 
9643 9652 9672 9681 9704 9729 97586 9790 9833 9869 9896 9916 9940 9968 9994 
10025 10036 10065 100986 10130 10154 19200 10212 10221 19245 10254 10284 10306 160332 10364 
10371 10392 10415 10429 19445 19458 19468 10472 10487 14506 10521 10533 10547 10559 105686 
10579 19586 10595 

eBLKB 8692 6790 

oPLKw 1289 1299 1306 1320 8608 

eBRYTE 216 217 222 223 234 235 736 237 1313 1946 1947 2065 2066 2270 2271 
2392 2393 2594 2595 2624 2625 2833 2034 2923 2924 3076 3077 3164 3165 3319 
3320 3505 3596 3686 3687 3621 3822 39n4 3985 4121 4122 4291 4292 4430 4431 
4589 4590 4674 4675 4643 4644 $012 §013 $166 $167 $224 5225 $369 $370 $509 
$510 5694 $695 $791 $792 6016 6017 6075 6076 6219 6220 6373 6374 68692 6893 
6977 6978 7135 7136 7253 7254 7434 7435 7560 7561 1740 8788 67869 9200 9261 
9202 9203 10644 19646 10648 19650 19651 10652 19655 19658 19660 10662 10664 10665 10666 
19668 10671 


oF NABL 1 

eEND 10677 : 

eENDC 6 15 19 29 31 32 33 40 126 140 153 177 166 199 201 
203 211 213 238 246 252 253 254 255 258 259 965 971 1005 1007 


1180 1358 1363 1364 1366 13686 1370 1372 1373 1375 1377 1394 1398 1462 1406 
1410 1414 1418 1453 1467 14686 1469 1470 1471 1472 1491 1495 1565 1506 1507 
1508 1599 1510 1525 1526 1533 1534 1535 1536 1543 1566 1576 1574 1578 1666 
1612 1618 1645 1646 1653 1654 1655 1656 1687 16708 1677 1684 1697 1698 1763 
1704 1705 1739 1740 1743 1744 1745 1778 1779 17865 1786 17867 1827 1631 1633 
1845 1663 1864 1870 1903 1994 1913 1914 1915 1929 1930 1931 1932 1933 1950 
1954 1955 1956 1957 1986 1962 1964 1965 1993 2002 2008 2009 2015 2055 2068 
2072 2073 2074 2075 2096 2098 2190 2101 2119 2118 2124 2125 2131 2173 2174 
2188 2189 2190 2208 2210 2212 2213 2220 2231 2232 2233 2234 2248 2249 2250 
2251 2274 2278 2279 2280 2261 2305 2307 2309 2310 2312 2325 2343 2395 2399 
2400 2401 2402 2429 2431 2432 2433 2442 2469 2476 2477 2478 2479 2536 2537 
2548 2549 2550 2572 2574 2576 2577 2584 2597 2601 2602 2663 2604 2635 2637 
2638 2639 2675 2700 2707 2708 2709 2716 2791 2792 2600 2801 2802 2616 2817 
2618 2819 2620 2637 2641 2842 2843 2644 2865 2667 2869 2670 2678 2926 2936 
2931 2932 2933 2953 2955 2957 2958 2966 2968 2976 2977 2965 2986 2992 2999 
3031 3032 3043 3044 3045 3059 3060 3061 3062 3063 3064 3066 3084 3085 3086 
3087 3109 3111 3113 3114 3122 3167 3171 3172 3173 3174 3197 3199 3201 3262 
3211 3220 3228 3229 3237 3244 3245 3251 3252 32606 3294 3295 3296 3297 3298 
3299 3323 3327 3328 3329 3330 3353 3355 3357 3358 3366 3374 3360 3361 3389 
3393 3399 3403 3453 3454 3461 3462 3463 3482 3484 3486 3487 34869 3496 3530 
3532 3533 3534 3536 3548 3566 3569 3575 3576 35862 3586 3609 3616 3637 3636 
3639 3653 3654 3655 3656 3673 3674 3675 3676 36908 3694 3695 3696 3697 3721 
3723 3725 3726 3728 3740 3758 3825 3829 3830 3831 3832 3656 3658 3860 3061 
3863 3875 3893 3946 3947 3953 3954 3955 3969 3970 3971 3972 3968 3992 3993 
3994 3995 4019 4021 4023 4024 4032 4049 4057 4058 4064 4068 4093 4094 4160 


MAINDEC S11 =DERPVoR MACY11 27(732) 19eFER©76 16:22 PAGE 229 SEQ #254 
DERPVB P11 CROSS REFERENCE TABLE ©© PERMANENT SYMBOLS 


4101 4192 4124 4128 4129 4130 4131 4155 4187 4159 4140 4168 4185 4193 4196 
4202 4206 4229 4230 4239 4240 4241 4263 4265 4267 4268 4275 4295 4299 4300 
4301 4302 4325 4327 4329 4330 4338 4355 4363 4366 4372 4376 4402 4403 4409 
4410 441i 4433 4437 4438 4439 4440 4464 4466 4468 4469 4477 4480 44868 4490 
4498 4499 4505 4509 4535 4536 4558 4559 4560 4574 4575 4576 4577 4593 4597 
4598 4899 4600 4616 4618 4620 4621 4629 4640 4641 4642 4643 4459 4640 4661 
4662 4678 4682 4683 4684 4685 4709 4711 4713 4714 4722 4731 4739 4740 4748 
4752 4760 4762 4766 4noe 4809 aie 4611 4847 4651 4052 4653 4854 4679 4061 
4883 4ea4 4892 4901 4909 4910 4918 4920 4930 4996 49a7 4986 4989 5016 $020 
$021 5022 $023 5946 5048 5ase $951 5a59 5125 5126 $135 5136 $137 $152 $153 
5154 5155 $17¢ $174 5175 $176 $177 §193 $195 $197 $198 5206 $227 $231 $232 
5233 5234 $258 $260 $262 $263 5271 $200 5288 $289 §295 5296 5304 $311 $312 
$318 $372 $376 $377 $378 5379 5403 5405 5407 5408 5416 $473 5474 $461 $482 
5483 $512 $516 $517 5518 §519 5543 5545 $547 $548 $556 5560 5368 5569 $377 
$581 5587 $591 5639 5640 5656 $657 565" 5680 5681 5682 5683 $698 $702 5703 
5704 5705 $721 §723 5725 5726 5734 $753 $755 $757 $758 $766 5794 5798 $799 
5800 $801 $826 $820 5030 $831 $947 $949 5655 $856 $862 5866 5674 $676 $879 
5685 5934 $935 5955 $956 $957 $984 5985 5986 §987 6A01 6902 6003 eana 6020 
6024 6025 6026 6027 6043 6045 6047 6048 6°56 6078 6082 6083 6084 6ARS 6110 
6112 6114 6115 6130 6132 6138 6139 6145 6146 6154 6158 6159 6165 6222 6226 
6227 6228 6229 6253 6255 6257 6258 6260 6272 6290 6341 6342 6347 6348 6349 
6376 6300 6381 6382 6383 6407 6409 6411 6412 6414 6430 6448 5496 6497 6504 
6505 6506 6599 6602 6608 6609 6617 6621 6624 6630 6635 6643 6680 6661 6687 
668A 6689 6754 6770 6778 6779 6787 6791 6797 6801 6002 6808 6846 6847 Ba64 
BAGS 68646 6893 6864 6085 BeaG 6896 6900 6901 6992 6903 6919 6921 6923 6924 
6926 6935 6981 6985 6986 6907 6988 71004 7006 7008 7009 7011 7019 7047 7048 
7064 7065 1066 7093 7095 7097 7098 7105 7118 7119 7120 7121 7139 7143 7144 
7145 7146 7162 7164 7166 7167 7182 71236 7237 7238 7239 7257 7261 7262 7263 
7264 7280 7282 7284 7285 7293 7349 7350 7362 7363 7364 73908 7392 7394 7395 
7402 7417 7418 7419 1420 7438 7442 7443 7444 7445 7461 7463 7465 7466 7479 
7517 7519 7521 7822 7530 7545 7546 7547 7548 7564 7568 7569 7570 7571 7991 
7593 7595 7596 7604 1656 7657 7658 7664 7665 1666 7667 7671 7677 7701 71704 
7705 7706 7708 7711 7717 71720 7721 7725 7737 71740 7741 8265 e271 e276 0262 
8296 8293 8297 0417 8423 6434 R44D 8446 8450 9456 8462 8469 6479 2485 9499 
8494 8496 6507 0510 8511 6512 6514 8516 8523 8527 8532 6537 6540 os4i 6542 
8610 8686 #719 6727 8740 6760 8761 8768 A770 6773 8775 8790 e791 6792 0797 
RB36 8850 @AS51 9657 8673 Ream 8686 agen? 0997 agen 9923 6931 9939 6947 6955 
8963 8971 8979 6987 8995 9003 9011 9019 9627 9035 9043 9051 8059 9067 9128 
9246 9215 9218 9220 9230 9231 9232 9233 9234 9235 9236 9237 9238 9243 9255 
9265 9275 9277 9264 
EQUIV 40 41 43 53 59 aA 89 98 91 92 93 94 95 96 97 
116 417 118 119 120 121 122 123 124 125 
oF VEN 1394 1398 1402 1406 1410 1414 1418 1453 1491 1495 1543 1566 1570 1574 1878 
1606 1612 1618 1670 1677 1684 7671 7677 0265 6271 6278 8202 8286 6293 0297 
8417 8423 0434 #440 Rade 8450 8456 8462 8469 Ba94 8923 e931 asas 0947 Q955 
A963 e971 8979 Bon? 9995 9903 9011 9019 9027 9035 9043 9051 9049 9067 0124 
9283 10608 109674 10675 
IF 2 12 16 24 30 31 32 33 38 98 126 148 177 186 199 
200 202 208 212 238 246 252 253 254 258 964 9708 1004 1006 1179 
1358 1363 1364 1366 1368 1370 1372 1373 1375 1393 1397 1404 1405 1409 1413 
1417 1452 1466 1468 1469 1471 1472 1490 1494 1504 1506 1507 1509 1518 1524 
1526 1533 1535 1536 1542 1565 1569 1573 1577 1605 1611 1617 1644 1646 1653 
1655 1656 1669 1676 1683 1696 1698 1703 1705 1738 1740 1743 1745 1777 1779 
1785 1787 1825 1627 1629 1831 1641 1845 1864 1870 1902 1904 1913 1915 1928 
1929 1930 1931 1932 1933 1948 1950 1953 1954 1955 1956 1988 1984 1985 1993 
2002 2008 2009 2015 2054 2055 2067 2071 2072 2073 2074 2096 2100 2101 2110 


MAINDEC#11°DERPV-R MACY11 27(732) 1AeFER°76 16:27 PAGE 230 SEQ 9255 
DFRPVA P11 CROSS REFERENCE TABLF << PFRMANFNT SYMBOLS 


2118 2124 2125 2131 2172 2174 2198 2190 2208 2212 2213 222a 22308 2231 2232 
2233 2234 2247 2248 2249 2250 2251 2272 2274 2277 2278 2279 2280 2305 2309 
2310 2321 2325 2394 2398 2399 2490 2401 24279 2432 2433 2442 2469 2475 2476 
2477 2478 2479 2535 2537 2548 2550 2572 2576 2577 2584 2596 2600 2601 2602 
2603 2635 2638 2639 2675 2700 2706 2707 2708 2709 2714 2790 2792 2600 2602 
2815 2816 2817 2818 2819 7820 2835 2637 2840 2641 28642 2843 2865 2869 2676 
2878 2925 2929 2930 2931 2932 2953 2957 2958 2966 2968 2974 2976 2977 2983 
2985 2986 2992 2996 2999 3030 3032 3043 3045 3058 3059 3060 3061 3062 3063 
3064 3078 3080 3483 3084 3aRS 3986 3109 3113 3114 3122 3166 3170 3171 3172 
3173 3197 3201 3202 3211 3220 3226 3228 3229 3235 3237 3241 3244 3245 3251 
3252 3258 32608 3293 3294 3295 3296 3297 3298 3299 3321 3326 3327 3326 3329 
3353 3357 3358 3366 3374 3380 3381 3387 3389 3393 3399 3400 34063 3452 3454 
3461 3463 3482 3486 3487 3496 3530 3533 3534 3544 3546 3569 3575 3576 3582 
3583 3586 3608 3610 3637 3639 3652 3653 3654 3655 3656 3672 3673 3674 3675 
3676 3688 3698 3693 3694 3695 36% 3721 3725 3726 3736 3740 3623 3628 3829 
3830 3831 3856 366A 3861 3871 38675 3945 3947 3953 3955 3966 3969 3970 3971 
3972 3986 39866 3991 3992 3993 3994 4019 4023 4024 4032 4049 4055 4057 40560 
4064 4065 466 4092 4094 4100 4192 4173 4127 4128 4129 4130 4155 4159 4160 
4168 4185 4191 4193 4196 4202 4203 4206 4228 4230 4239 4241 4263 4267 4266 
4275 4293 4298 4299 4300 4301 4325 4329 4330 4338 4355 4361 4363 4366 4372 
4373 4376 4401 4403 4409 4411 4432 4436 4437 4438 4439 4464 4466 4469 4477 
4480 4486 4488 4490 4496 44986 4E99 455 4506 4509 4534 4536 4558 4560 4573 
4574 4575 4576 4577 4591 4593 4596 4597 4598 4599 4616 4620 4621 4629 4639 
4640 4641 4642 4643 4658 4659 4666 4661 4662 4676 4678 4681 4682 4683 4604 
4709 4713 4714 4722 4731 4737 4739 4740 4746 4748 4752 4758 4760 4762 4763 
4766 4607 48086 4809 48010 4611 4anas 48650 465) 4652 4653 4679 4683 aang 4092 
4901 4907 4909 4910 4916 4918 4920 4927 4930 49865 4986 49867 4988 4969 soi4 
5019 $020 $021 5022 5046 5050 5051 5059 $124 $126 $135 $137 $151 $152 $153 
5154 5155 5166 $170 $173 5174 $175 $176 5193 $197 $198 5206 $226 $230 $231 
$232 5233 5256 5262 $263 $271 $260 $286 $286 $289 $295 5296 5302 3304 5308 
5311 $312 $318 5371 5375 5376 $377 $378 $403 $407 5498 $416 5472 5474 5483 
54863 $511 $515 5516 $517 $5186 5543 $547 $548 $556 $560 $566 $566 5549 5575 
$577 $581 $s87 $5866 $591 5638 5640 5656 5656 $679 5680 $661 $682 5683 $6%6 
5698 S701 $702 5703 5704 $721 5725 5726 $734 5753 $757 5758 $766 5793 $797 
5798 $799 5800 5826 $830 $831 $647 $849 $855 $656 $862 5666 $872 $874 $875 
5878 $879 sees $933 $935 5955 5957 $983 $984 $965 5986 $967 6000 6001 6002 
6003 6004 6016 6020 6023 6924 6025 6026 6043 6047 6048 6056 6077 6081 6982 
6083 6084 6116 6114 6115 6130 6132 6138 6139 6145 6146 6152 6154 6155 6158 
6159 6165 6221 6225 6226 6227 6228 6253 6257 6258 6268 6272 6340 6342 6347 
6349 6375 6379 6380 6381 63862 6407 6411 6412 6426 6430 6495 6497 6504 6506 
6599 6602 6608 6609 6615 6617 6618 6621 6624 6630 6635 6641 6643 6679 6681 
6687 6689 6754 6770 6776 6778 6779 6785 6787 6791 6797 6798 6801 6802 68068 
6845 6847 6864 6866 6882 6883 6684 6685 6886 6894 6896 6899 6900 6901 6902 
6919 6923 6924 6935 6979 6984 6985 6986 6967 71004 7008 7009 7619 7046 7648 
1064 7066 7093 7097 7098 7165 7117 7118 7119 7120 7121 7137 7139 7142 7143 
7144 7145 7162 7166 7167 7182 7235 7236 7237 7238 7239 72558 7260 7261 7262 
7263 7280 7264 7285 7293 7348 7350 7362 7364 7390 7394 7395 7402 7416 7417 
7418 7419 7420 7436 7438 7441 7442 7443 7444 7461 7465 7466 7479 7517 7321 
7522 7530 7544 7545 7546 7547 71948 7562 7867 756A 7569 7570 7$91 7995 7996 
7604 7655 7656 7658 7664 71666 7667 7678 7676 7700 7704 7708 7706 7787 7766 
7710 7716 7719 7721 77258 7736 7737 6264 8270 6277 8281 6285 8292 8296 8416 
9422 6433 8439 6445 8449 8455 8461 6468 6478 8484 8489 8494 0506 65e8 9509 
8510 6512 6513 6514 8523 6525 6534 8539 9540 6541 8609 8685 8689 0717 0722 
8739 8760 8768 6769 8773 8774 8790 6791 8796 8802 6618 8650 8656 8666 8876 
8683 668s 6686 6667 6890 n897 8898 8922 8930 6938 8946 8954 8962 6970 0978 
8986 6994 9002 9010 9018 9026 9034 9042 9050 9058 9066 9127 9205 9214 9218 





MATNDEC#11-DERPV<-B MACY11 27(0732) 18eFER©76 16327 PAGE 231 SEQ 6256 


DERPVE P11 CROSS REFERENCE TABLE ©© PERMANENT SY*AROLS 
9220 9221 9231 9232 9233 92734 9235 9236 9237 9238 9242 9255 9265 9273 9275 
9281 

oIFF 29 31 32 33 40 201 203 212 238 259 965 971 1005 1007 1180 


1363 1467 1468 1470 1471 1472 1595 1596 1508 1509 15108 1525 1526 1534 1535 
1536 1645 1646 1654 1655 1656 1697 1698 1704 1745 1739 1740 1744 1745 1778 
1779 1786 1787 1864 1903 1904 1914 1915 1948 1950 1954 1955 1956 2062 2009 
2067 2072 2073 2074 2118 2125 2173 7174 7189 2190 2272 2274 2278 2279 2286 
2394 2399 2400 2401 2536 2537 2549 2550 2596 2601 2692 2603 2791 2792 261 
2802 2635 2837 2641 2842 28643 2925 2930 2931 2932 29686 2977 2986 2999 3031 
3032 30464 3045 3078 30808 3084 3085 3086 31466 3171 3172 3173 3220 3229 3244 
3245 3252 3321 3323 3327 3328 3329 3374 3381 3393 3403 3453 3454 3462 3463 
3569 3576 3586 3609 3610 3638 3639 3688 3690 3694 3695 36%6 3623 3825 3829 
3830 3831 3946 3947 3954 3955 3966 3968 3992 3993 3994 449 4ese@ 4068 4093 
4094 4101 4102 4123 4128 4129 4130 4165 4196 4296 4229 4230 4240 4241 4293 
4295 4299 4300 4301 4355. 4366 4376 4402 4403 4410 4411 4432 4437 4439 448@ 
4490 4499 4509 4535 4536 4559 4560 4591 4593 4597 4598 4599 4676 4678 4682 
4683 4684 4731 4740 4752 4766 4645 4647 4651 4652 4653 4901 4910 4930 $014 
5016 5020 $021 $022 $125 5126 5136 $137 $166 $170 $174 $175 $176 $226 $231 
$232 5233 5280 $289 5296 $311 $312 $371 5376 $377 $378 $473 5474 $482 5483 
$511 5516 $516 $560 $569 $5681 $391 5639 $640 $657 5658 $696 5698 $702 $703 
5704 $793 $798 $799 5800 $649 $656 $866 $078 $879 5934 $935 $956 $987 6018 
6020 6024 6025 6026 6077 6062 60863 6084 6132 6139 6146 6156 6159 6221 6226 
6227 6228 6341 6342 6346 6349 6375 6380 6381 6382 6496 6497 6505 6506 6602 
6699 6621 6624 6635 6680 6681 66868 6669 6770 6779 6791 6601 6862 6846 6847 
6865 68666 6894 6696 6900 6901 6992 6979 6961 6964 6986 6987 7047 7046 7065 
1066 7137 7139 7143 7144 7145 72558 7257 7261 7262 7263 7349 7350 7363 7364 
7436 7438 7442 7443 7444 7862 7564 7568 7869 7570 7636 7657 7658 7665 7666 
7667 7701 7707 7711 7717 71720 71737 6479 8507 8510 6511 6514 8540 6542 8616 
8686 8740 0743 8760 8761 8769 A774 8790 9797 6651 8656 88676 6697 8698 9128 
9296 9215 9243 9275 

eIFT 1394 1398 1402 1406 1416 1414 1418 1453 1491 1495 1543 1566 1570 1574 1578 
1606 1612 1618 1670 1677 1684 18664 1948 1956 1953 1954 1955 1956 2002 2009 
2067 2071 2072 2073 2074 2118 2125 2272 2274 2277 2278 2279 22860 2394 2396 
2399 24008 2401 2596 2600 2601 2602 2603 2835 2637 2640 28641 2042 2643 2925 
2929 2930 2931 2932 2968 2977 2986 2996 3078 3080 3063 3064 3065S 3066 3166 
3170 3171 3172 3173 32206 3229 3241 3245 3252 3321 3326 3327 3328 3329 3374 
33861 3393 3400 3569 3576 3583 3688 3690 3693 3694 3695 3696 3823 3626 3829 
3830 3831 3966 39866 3991 3992 3993 3994 4049 4056 4065 4123 4127 4128 4129 
4130 4185 4196 4203 4293 4298 4299 4300 4301 4355 4366 4373 4432 4436 4437 
4438 4439 440 4490 4499 4506 4591 4593 4596 4597 4998 4599 4676 46768 4681 
4682 4683 4684 4731 4740 4752 4763 4645 4650 4651 4852 4653 4901 4910 4927 
5014 $019 $020 $021 5022 $168 5170 $173 $174 $175 5176 5226 5230 $231 $232 
$233 $280 5289 $296 3308 $312 $371 $375 $376 $377 53768 $511 $515 $516 $517 
5518 5560 $569 $581 $566 5696 $698 5701 $702 5703 5704 $793 5797 5798 $799 
5800 $849 5656 $866 5875 $679 6e18 6020 6023 6024 6025 6026 6077 6061 6082 
6983 6084 6132 6139 6146 6155 6159 6221 6225 6226 6227 6228 6375 6379 6380 
6381 6382 6602 6609 6618 6624 6635 6770 6779 6791 6798 6802 6894 6896 6699 
6900 6901 6902 6979 6984 6985 6986 69067 7137 7139 7142 7143 7144 7145 7235 
71260 7261 7262 7263 7436 7438 7441 7442 7443 7444 7562 7867 7568 7869 7570 
7671 7677 8265 6271 6278 9262 8286 8293 8297 6417 8423 0434 6440 0446 0450 
8456 6462 8469 6522 6742 8747 8623 6643 8650 8686 6923 6931 6939 6947 0955 
8963 6971 8979 6987 8995 9Aa3 9011 9019 9027 9035 9043 9051 9059 9067 

oIFTF 1394 1398 1402 1406 1410 1414 1418 1453 1491 1495 1543 1566 15760 1574 1578 
1606 1612 1618 1670 1677 1684 7671 7677 6265 6271 6278 6282 6286 8293 0297 
6417 6423 G444 6440 6446 8450 6456 8462 6469 8520 8740 6743 0619 8627 8649 
666s 8923 6931 8939 8947 8955 8963 6971 6979 8987 6995 9003 9011 9019 9027 


TT 
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9035 9043 9051 9059 9067 

ol IF 1 6 11 26 27 28 29 32 33 34 35 148 258 1364 1366 
1372 1373 1375 1376 1679 1686 1804 1805 1628 1829 1958 1959 1963 1984 2076 
2077 2099 2100 22711 2212 2282 2283 2308 7309 2403 2404 2432 2575 2576 2605 
2606 2638 2645 2646 2068 2869 2934 2935 2956 2957 3088 3089 3112 3113 3175 
3176 3200 3201 3331 3332 3356 3357 3485 3486 3533 3698 3699 3724 3725 3833 
3834 3859 3860 3996 3997 4022 4023 4132 4133 4158 4159 4266 4267 4303 4304 
4328 4329 4441 4442 4467 4468 4601 4662 4619 4620 4686 4687 4712 4713 4655 
48656 4882 4083 $024 $025 5049 5°50 $178 $179 5196 $197 $235 $236 $261 5262 
5380 5361 $406 5407 552¢0 $521 5546 5547 5776 $707 5724 $725 5756 5757 $602 
5803 5629 $630 6028 6029 6046 6047 6086 6087 6113 6114 6230 6231 6256 6257 
6384 6385 6410 6411 6904 6905 6922 6923 6989 6990 7007 7008 7096 7097 7147 
7148 7165 7166 7265 7266 7283 7284 7393 7394 7446 7447 71464 7465 7520 7821 
7572 7873 7894 7895 7705 7711 7712 71723 71737 7741 8485 8486 8487 A4ne 8489 
8490 8521 8522 6537 8540 6541 8685 6689 R694 8783 6791 8792 8650 #657 eese 
8859 8860 6661 #698 9230 9231 9232 9233 9234 9235 92%6 9237 9238 

oTRP 1358 1466 1504 1524 1644 1696 1738 1777 1992 2172 2535 2790 3030 3452 3608 
3945 4092 4228 441 4534 5124 5472 5638 5903 5907 $933 6186 6190 6340 6495 
6679 6845 7046 7348 7656 7765 7775 7794 7603 7822 7828 7931 71940 7993 8053 
8076 6119 6131 8143 6161 8174 6198 8230 63186 0327 8376 8404 6555 6595 6613 
8839 8866 9249 9265 

eLIST i 11 20 21 32 140 148 238 240 241 242 243 244 245 246 
247 248 249 250 251 252 1358 1377 1394 13968 1402 1406 1410 1414 1418 
1453 1466 1471 1491 1495 1504 1599 1524 1535 1543 1566 15708 1874 1578 1606 
1612 1618 1644 1655 1687 1676 1677 1684 1696 1745 1736 1745 1777 17867 1794 
1835 18490 1841 1902 1915 1987 1992 1993 2104 2109 2110 2172 2190 2214 2219 
2220 2315 2320 2321 2436 2441 2442 2463 24686 2469 2535 2550 2578 2583 2584 
2669 2674 2675 2694 2699 2700 2798 2002 2672 2677 28786 2960 2965 2966 3038 
3045 3116 3121 3122 3205 3210 3211 3360 3365 3366 3452 3463 3490 3495 3496 
3538 3543 3544 36068 3639 3730 3735 3736 3665 3870 3071 3945 3955 4026 4031 
4032 4992 4102 4162 4167 4168 4228 4241 4269 4274 4275 4332 4337 4330 4401 
4411 4471 4476 4477 4534 4560 4623 4628 4629 4716 4721 4722 4686 4891 4092 
5953 5056 ses9 5124 $137 5200 $205 5296 $265 $270 $271 54108 5415 5416 $472 
5483 5550 $555 $556 5636 $658 $728 5733 $734 5760 5765 5766 5841 5846 $847 
$933 $957 6050 6055 6056 6124 6129 6130 6262 6267 6268 6340 6349 6420 6425 
64269 6495 6506 6593 6598 6899 6679 6689 6748 6753 6754 6045 6866 6929 6934 
6935 7013 7018 7019 7046 1066 7099 7104 7105 7176 7181 7162 7287 7292 7293 
7348 7364 7396 7401 7402 7473 7478 7479 7524 7529 71530 7998 7603 7604 7656 
71666 7671 7677 8265 6271 8276 8282 8266 8293 9297 a417 8423 8434 6440 8446 
6450 6456 6462 8469 8489 8760 8923 6931 8939 6947 6955 6963 6971 6979 69067 
8995 9003 9011 9019 9027 9035 9043 9051 9059 0067 9220 9221 92308 0231 9232 
9233 9234 9235 9236 9237 9238 9239 P 

MACRO 21 33 202 1466 1504 1523 1643 1695 1737 1776 1904 2171 2534 2789 3036 
3451 3606 3944 4091 4227 4400 4533 $123 $472 $637 5933 6339 6494 6678 6044 
7045 7347 7656 9221 


“CALL 1 140 
eNLIST 1 11 20 21 32 140 148 238 240 241 242 243 aaa 245 246 
247 248 249 250 251 252 1358 1377 1394 1398 1402 1406 1410 1414 1418 


1453 1466 1471 1491 1495 1504 1509 1524 1535 1543 1566 15708 1574 1578 1606 
1612 1618 1644 1655 1657 16708 1677 1664 1696 1705 1738 1745 1777 17867 1794 
1835 1840 1841 1902 1915 1987 1992 1993 2104 2109 2110 2172 2190 2214 2219 
2220 2315 2320 2321 2436 2441 2442 2463 2468 2469 2535 2550 2576 2583 25684 
2669 2674 2675 2694 2699 2700 2790 28602 2672 2677 2678 2960 2965 2966 3030 
3045 3116 3121 3122 3205 32108 3211 3360 3365 3366 3452 3463 3496 3495 3496 
3538 3543 3544 3608 3639 3730 3735 3736 3665 38670 3671 3945 3955 4026 4031 
4032 4092 4102 4162 4167 4168 4228 4241 4269 4274 4275 4332 4337 4336 a4e4 
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» TITLE 
2WORD 


44i1 
5953 
$483 
$933 
6426 
6935 
7348 
7666 
8450 
6995 
9233 
202 
8465 
1840 
2564 
3495 
4336 
5415 
6268 
7292 
12 
22 
1777 
5638 
8798 
i 
148 
242 
1329 
9101 
10634 
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4471 
$058 
5550 
5957 
6495 
7013 
7364 
7671 
8456 
9003 
9234 

258 
6477 
1641 
2674 


ERRORS DETECTED: 20 
DEFAULT GLOBALS GENERATED: 06 


44676 
$059 
$555 
6050 
6596 
7018 
7396 
7677 
6462 
9011 
9235 

963 
6541 
1992 
2675 
3543 
4477 
$555 
6426 
7401 

148 

142 
2172 
6340 
6899 


218 
244 
1343 
9274 
10638 


4477 
$124 
5556 
6055 
6893 
7019 
7401 
8265 
8469 
9019 
9236 
1181 
6ese 
1993 
2699 
3544 
4628 
$556 
6598 
7402 

240 

149 
2535 
6495 
9129 


219 
245 
1344 
9276 
10641 


18°FERO76 
4534 4560 
$137 5200 
5638 $658 
6056 6124 
6596 6599 
7046 7066 
7402 7473 
8271 8278 
6489 8760 
9027 9935 
9237 9236 
1232 1263 
9205 9242 
2109 2110 
2700 2877 
3735 3736 
4629 4721 
5733 5734 
6599 6753 
7478 7479 
246 
165 204 
2790 3030 
6679 6845 
9207 9222 
220 221 
246 247 
1345 7716 
189609 19612 


#DERPVB, DERPVB/CRF /SOLSDERPVB .P11/DS:ERFZ 
RUN@TIMEs 98 101 14 SECONDS 
RUN@TIME RATIOS 460/21482,2 
CORE USED: 


24K 


(47 PAGES) 


4623 
$205 
5728 
6129 
6679 
7099 
7478 
#282 
0923 
9043 
9239 
1346 
9284 
2219 
2878 
3870 
4722 
5765 
6754 
7829 


260 
3452 
7046 
9244 


224 
248 
7719 
14615 


16322 PAGE 233 


4628 
5206 
5733 
6130 
6689 
7104 
7479 
8296 
0931 
9051 


7700 


2220 
2965 
3671 
4691 
5766 
6934 
7530 


1194 
3608 
7348 


225 
249 
8236 
19617 


4629 
5265 
5734 
6262 
6746 
7105 
7524 
8293 
6939 
9059 


7834 
2320 


2966 
4031 


4892. 


5646 
6935 
7603 


1346 
3945 
7656 


226 
250 
6678 
19619 


4716 
5279 
$760 
6267 
6753 
7176 
71$29 
8297 
6947 
9067 


78662 


2321 
3171 
4032 
$0se@ 
$047 
7018 
7604 


1466 
4092 
7762 


227 
251 
8689 
10620 


4721 
$271 
$765 
6268 
6754 
7181 
71530 
9417 
#955 
9220 


7882 


2441 
3122 
4167 
5059 
6055 
7019 


1504 
4228 
7744 


228 
1286 
8690 

19623 


4722 
5410 
5766 
6340 
6845 
7182 
7598 
8423 
8963 
9221 


7919 


2442 
3210 
4166 
$205 
6056 
7104 


1524 
4401 
6480 


229 
1321 
6691 

10626 


4686 
5415 
$841 
6349 
6866 
7267 
71603 
6434 
6971 
9230 


2468 
3211 
4274 
5206 
6129 
7165 


1644 
4534 
6543 


238 
1322 
6846 

10626 


4e91 
$416 
$846 
64206 
6929 
7292 
71604 
9440 
6979 
9231 


6237 


2469 
3365 
4275 
$270 
6130 
7163 


1696 
$124 
8611 


246 
1324 
8649 

10630 


4892 
5472 
$647 
6425 
6934 
7293 
1656 
8446 
0967 
9232 


2563 
3366 
4337 
$271 
6267 
7182 


1738 
$472 
0687 


